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I. INTRODUCTION 


A. DESCRIPTION 

Space... the final frontier. Mankind has always had a desire to explore space. 
This desire has been accompanied by a dream for a permanent structure in space on which 
people can live while observing and collecting data on Earth's solar system. This dream 
has already been realized by the Soviet Union with its currently operational manned MIR 
Space Station. The United States is attempting to realize this same dream by striving to 
develop, design and employ a manned space station by the late 1990's. 

The space station will need a smooth mechanism for the collection, processing and 
storage of data and dissemination of information. It will also need a method for monitoring 
the major systems on the space station, isolating predicted and actual faults, diagnosing the 
problem and providing a possible solution. Such a system would probably involve an 
amalgam of three technologies: computer expert systems, computer graphics, and 
computer networks. 

Most major systems on the space station will utilize an expert system. This expert 
System will contain specific knowledge about the major system to include an indepth 
model, rules for the diagnosis of system or component failures and the capability to provide 
possible solutions to diagnosed problems. There will be a simple graphics interface that 
will be the main interface to the expert system for the astronauts. This will be necessary to 
enable the United States to save resources on astronaut training on the expert systems. 
This interface will require some form of networking to allow the graphics interface and the 
expert System to communicate. It will provide autonomy on the space Station, insuring a 


safe environment that will allow the crew to perform to their maximum potential. 


B. PURPOSE. 

This thesis presents a high-level fault diagnosis prototype for the NASA Space Station 
Power Management and Distribution (PMAD) system. This prototype serves as a 
proposed training tool for NASA in the training of new personnel on space station expert 


systems. 


C. THESIS OUTLINE. 

The following outline of this thesis lays a clear path for the discussion of the PMAD 
system prototype. Chapter II provides a background on the NASA project and Chapter III 
provides an overview of the PMAD system prototype. Chapters IV through VI describe 
the software involved in the expert system, the graphics and communications interfaces, 
respectively. Chapter VII presents the integrated PMAD system prototype utilizing a 
consolidation of the concepts presented in Chapters IV through VI. It also provides an 
analysis of the PMAD system prototype and briefly discusses the PMAD System Manual. 
Chapter VIII closes the thesis with results and ideas for the expansion of the PMAD system 
prototype. It also discusses proposed NASA utilization of the prototype as well as its 


practical usage by the United States Navy. 


II. NASA PROJECT BACKGROUND 


A. AUTOMATION AND SPACE STATION 

On July 18, 1984, the United States Congress passed Public Law 98-371 that stated 
that NASA would identify "specific Space Station systems which advance automation and 
robotics technologies, not in use in existing spacecraft, and that the development of such 
systems shall be estimated to cost no less than 10 per centum of the total Space Station 
costs." [Ref. 1:pp. 80-81] In response to this legislation, NASA established an Advanced 
Technology Advisory Committee (ATAC) with the express purpose of reporting on the 
potential uses and impacts that automation and robotics could have in the Space Station 
program [Ref. 1:p. 81}. 

The Office of Aeronautics and Space Technology granted approval for the Systems 
Autonomy Demonstration Program (SADP) in November 1985. The SADP was created to 
address NASA's need to develop, integrate and demonstrate various technologies for 
incorporation into the Space Station. The organization that was given the lead on the SADP 
was the Ames Research Center Information Sciences Office. Four milestone 
demonstrations are envisioned to occur from 1988 through 1996. Each demonstration 
includes more difficult tasks in order to integrate more complex autonomous capabilities 


into a technologically advancing society. [Ref. 1:p. 81] 


B. THE SADP 
The SADP was set up as a joint venture between the Ames Research Center (ARC) 
and the Johnson Space Center (JSC), research and operation centers, respectively. ARC 


functions involve the following: 


¢ "Program-wide planning, scheduling, budgeting, and evaluation 
¢ In-house conduct of a significant portion of the core technology effort 
¢ Coordination of the core technology efforts conducted at sites other that ARC 


¢ Overall management of the development of the automation technologies into software 
and hardware suitable for integration into the demonstration framework 


¢ Provision of the technical support essential for facilitating the transfer of 
technologies to future Space Station activities.” [Ref. 1:p. 81] 


The role of JSC includes: 


¢ "Supply of the application domain expertise necessary to guide the development of 
software and hardware tools in order to support the demonstration 


¢ Adaptation of the core technology products to the specific demands of the 
demonstration environment 


¢ Actual conduct of the milestone demonstrations 


¢ Promotion of the transfer of the developed and demonstrated technologies into Space 
Station applications." [Ref. l:pp. 81-82] 


C. THE THERMAL CONTROL SYSTEM DEMONSTRATION 

A major objective of the 1988 demonstration is the automated monitoring, operation, 
and control of a complete mission operations subsystem [Ref. 1:p. 82]. The Space 
Station Testbed Facility at JSC was identified as a demonstration site for the Space Station 
Thermal Management System. A main goal of the Testbed is to develop, test and evaluate 
these new technologies for the Space Station via ground-base simulations [Ref. 1:p. 82]. 
As part of these simulations, "a knowledge-based support system has been developed to 
provide fault recognition, diagnosis and isolation, monitoring and design and configuration 


aids for the thermal testbed." [Ref. 1:p. 82] 


D. THE POWER CONTROL SYSTEM DEMONSTRATION :- 
The 1990 demonstration will focus on the automated control of multiple subsystems. 
It will show the coordinated control of multiple subsystems. It will also demonstrate 


operator aids for unanticipated failures, planning and reasoning about nonstandard 


procedures. NASA has already begun its preparation for this demonstration by beginning 
the design of the Power Control System (PCS). The PCS Testbed Facility is located at the 
Lewis Research Center while autonomous technologies for PCS are being developed by 
ARC. This M.S. thesis presents a high-level prototype for the PCS, the Power 
Management and Distribution (PMAD) system prototype. An overview of the PMAD 
system prototype design and associated hardware and software will be discussed in 


Chapter III. [Ref. 1:p. 83] 


HI. THE PMAD SYSTEM PROTOTYPE OVERVIEW 


The PMAD system prototype involves the use of a L/St Processing (LISP) machine 
(which runs expert system software), a color graphics workstation and associated 
software. Paragraphs III.A through III.C discuss the roles played by these machines and 


their software in comprising the PMAD System. 


A. THE SYMBOLICS 3675 LISP MACHINE 

The Symbolics 3675 LISP machine is manufactured by Symbolics, Inc. The PMAD 
system utilizes the Symbolics because it has the largest memory and disk capacity of the 
3600 series Symbolics machines, enabling it to accommodate the software necessary to run 
the PMAD system. 

The Symbolics runs the Genera 7.1 operating system and utilizes the LISP artificial 
intelligence language. The expert system software available on this machine is the 
Knowledge Engineering Environment (KEE) Expert System Shell. KEE is a window 
(screen partition) and mouse oriented program that provides the functionality needed for 
development of the PMAD system knowledge base. The mouse is a pointing device with . 
three buttons that can perform certain operations and that can be moved around on a flat 
surface. 

The NASA Model Toolkit (MTK) is additional support software for the PMAD system 
which sets up a template for the development of a knowledge base for any type of system 
that can be broken down into components. MTK enables the placement of general icons 
(picture representations) for these components into a window called the Library. The icons 
in this Library window are used to create specific instances of the components which, - 


when pieced together with connections and connection links, comprise a picture or 


diagram of the system in another window called the Model. All of the Symbolics software 
enables the setting up of an environment where fault diagnosis can be performed. The 


performance of this fault diagnosis will be discussed in Chapter VII. 


B. THE SILICON GRAPHICS, INC., IRIS-3120 GRAPHICS 
WORKSTATION 


The IRIS is a high performance color graphics workstation with mouse interface 
manufactured by Silicon Graphics, Inc. The IRIS runs the ATT system 5.3 version of the 
UNIX operating system. The IRIS comes with the Multiple EXposure (MEX) window 
manager which provides a pop-up menu facility. The operating system and MEX both 
utilize the C structured programming language. The IRIS's main feature is a set of 
graphics and utility routines that provide high-level and low-level graphics support. All of 


this software assists in providing the PMAD system with a simple color graphics interface. . 


C. THE COMMUNICATIONS SOFTWARE INTERFACE 

Both of the aforementioned machines utilize the Transmission Control 
Protocol/Internet Protocol (TCP/IP) standard to communicate with each other. The 
Symbolics uses LISP functions written on top of TCP/IP to enable ease of use by the user. 
The IRIS uses TCP/IP and an intercomputer communications package that can be 
customized to communicate with other IRIS, Symbolics or Texas Instruments Explorer 


machines. 


D. SUMMARY 

The associated software for the Symbolics and the IRIS have been discussed in a 
general fashion in this chapter. In Chapters IV and V the software for these machines is 
discussed in detail along with a brief discussion on how the different software layers 


interrelate to support the PMAD system. 


IV. SYMBOLICS LISP MACHINE SOFTWARE 


A. THE LAYERS 
There are four major software layers that the PMAD system utilizes on the Symbolics. 
Each one plays a significant role in the support of the PMAD system. The following 
paragraphs give a brief description of each layer. 
1. Genera Version 7.1 
The operating system on the Symbolics is Genera 7.1. It provides a total 
operating environment for LISP processing. This includes manipulating the screen using 
the mouse. The mouse is a pointing device with three buttons that can perform certain 
operations and that can be moved around on a flat surface. Also, included in the 
Genera 7.1 environment are the control of the keyboard and the creation and selection of 
windows. [Ref. 2:pp. 6-9] 
2. Common LISP 
Common LISP is the result of an attempt to consolidate variations of LISP into a 
collection of capabilities that could be considered a language. LISP functions are quite 
similar to a glorified hand calculator; i.e., arguments and an operation to be performed are 
typed in and LISP does the operation and prints out an answer. It is this evaluative 
behavior that makes Common LISP a popular language in the Artificial Intelligence field. 
[Ref. 3:p. xu] 
3. The KEE Expert System Shell 3.1 
KEE is a development system for building expert systems. An expert system has 
a knowledge base that is composed of information blocks called units. These units contain 


slots which represent information about these units and how that information relates to 


other units. Slots have values that can contain descriptive information (facts) or procedural 
information (rules). [Ref. 4:pp. 4-8] 

KEE enables the user to not only organize facts and rules 1n the expert system's 
knowledge base, but also allows their manipulation through the use of an inference engine. 
[Ref. 5:p. 16]. An inference engine prioritizes facts and rules, executes them and based 
on the rules’ results, adds new facts to the knowledge base. Thus, KEE enables the easy 
use and expansion of an expert system. 

4. The NASA Model Toolkit (MTK) 

The Model Toolkit (MTK) is a package developed to be closely integrated with a 
number of KEE version 3.1 utilities (that provide basic support for a number of MTK 
functions) in order to provide expert system developers support for designing and 
implementing expert systems that utilize model-based reasoning. Such reasoning is 
necessary since many expert system problems in simulation, monitoring, and fault 
diagnosis concern physical systems. It is this model-based reasoning that MTK uses to 
organize the PMAD system knowledge base. [Ref. 6:p. 2] 

a. The PMAD System Knowlege Base 

MTK provides the basic organization for representing the physical and 
conceptual components that comprise a physical system (structures), the ways that these 
components interact with each other (connections) and the crucial measurements 
(parameters) that define how these components can change over time. [Ref. 6:p. 2] 

(1) Structures. MTK represents objects to be modelled in a system by units 
called structures of which there are two types, component and functional (only component 
Structures will be discussed) [Ref. 6:p. 5]. Component structures represent distinct 
physical objects. Some examples of such objects in the PMAD system are joints, 


switches and batteries. 


(2) Connections. Within MTK there are units called connections which 
represent how one structure may effect another. Such influences can be the transfer of 
energy such as heat, electricity or force [Ref. 6:p. 6]. The PMAD system connections are 
called electrical.connections. 

(3) Parameters. Significant measurable values in the PMAD system are 
represented in MTK by parameters. Two types of parameters are used, simple and 
complex. Simple parameters are used to handle a single qualitative value. Complex 
parameters are used to handle parameters that need to represent both quantitative and 
qualitative values. Also, parameters can be associated with both structures and 
connections. The PMAD system utilizes complex parameters. They are charge.level, 
power.level and voltage.level. These examples, as well as those in paragraphs 
IV.A.4.a(1) and IV.A.4.a(2) above, can be seen in the PMAD system knowledge base 


representation in Figure 1. [Ref. 6:p. 7] 
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Figure 1. The PMAD System Knowledge Base 

Within these parameter units are slots. The slots of the most importance are 
called value, value.state and trend.state. The value slot contains the numerical or 
range value of the parameter. The value.state slot contains the information on the 
parameter labelled either negative, zero or positive. The trend.state slot has 
information on the parameter of either steady, increasing or decreasing. Examples of 
these slots are discussed later in this chapter. [Ref. 6:pp. 7-8] 

b. The PMAD System Library 

The library has knowledge bases and an icon window associated with it. 

Collectively, the library builds domain-specific representations on top of MTK's generic 


Structures [Ref. 6:p. 1]. The icons in the library window can be modified to exactly 


1] 


resemble physical component structures and their associated connections. The PMAD 
system library can be seen in Figure 2. 
c. The PMAD System Model 
The model is quite similar to the library, in that it uses definitions made in the . 
library knowledge base, except it contains specific instances of components and defines 
how these components interact. The PMAD system model can be seen in Figure 3. 


HRet.o:p, |i] 


B. THE INTEGRATION OF THE LAYERS 

Now that all of the major software layers for the Symbolics that relate to the PMAD 
system have been explained, the integrated software environment will be discussed. The 
battery component will be the source of the examples. 

The battery component structure (or class) in the PMAD system knowledge base in 
Figure 1 is represented in the PMAD system library by a battery class icon in Figure 2 that 
has three connections, vr.n (voltage regulator node), n (negative) and p (positive). The 
battery component is also represented in the PMAD system model in Figure 3 by another 
icon that is an instance of the battery class icon in the library in Figure 2. This model icon 
is shown to be linked or connected to the voltage regulator through the battery's vr.n 
connection. The battery's n and p connections are unlinked. This instance of the battery 1s 


known to the model knowledge base as battery.1. 
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Battery.1 also has parameters that are associated with itself and its connections. 
There is a unit called battery.I.charge which contains information about the charge on 
battery.1. The battery.1.charge unit mainly keeps track of the trend.state of the 
charge on battery.1. The battery.I.vr.n connection unit has a parameter unit 
associated with it called battery.I.vr.n.powerload. This parameter unit's main 
function is to keep track of the value.state of the powerload on the vr.n connection on 
battery.1. 

Figures 4a and 4b show partial output of the battery.1 structure and the 
battery.Il.charge parameter units and their important slots. Figures 4c and 4d show 
partial output of the battery.1l.vr.n connection and the battery.1l.vr.n.powerload 


parameter units and their important slots. 


) (Output) The BATTERY.1 Unit in MODELPWASYS Knowledoe Base 

Q 
pe slot: CHARGE from BATTERY.1 
Inheritance: OVERRIDE.VALUES 
ValueClass: CHARGE.LEVEL in PWRSYS 
Cardinality. Max: | 

Cardinality Min: 1 

Values: BATTERY. 1.CHARGE 


[=== 


Figure 4a. CHARGE Parameter Slot for BATTERY.1 Unit 


0 Own slot: TRENO.STATE from BATTERY. 1.CHARGE 

g Inheritance: OVERRIDE.VALUES 

Avunits: (HANDLE .PARAMETER.STATES.AV in MOOEL-TOOLKIT ALL 
NIL) 

Values: STEADY 


| 
fe, 





Figure 4b. TREND.STATE Slot for BATTERY.1.CHARGE Unit 


ls 


Figure 4d. 





Dutput) The BATTERY. 1.VR.N Unit in MODELPWRSYS Know 
QO Own slot: POWERLOAD from BATTERY.1.VR.N 

| Inheritance: OVERRIDE .VALUES 

| ValueClass: POWERLEVEL in PWRSYS 

‘| Cardinality Max: 1 

Cardinality Min: | 

G Propagate Fiag: T 


: Values: BATTERY.1.VR.N POWERLOAD 
te 


Figure 4c. POWERLOAD Parameter for BATTERY.1.VR.N Unit 








Output) The BATTERY. 1.VR.N_POWERLOAD Unit in MODELPWRSYS Knowledge Base 
COwn slot: VALUE.STATE from BATTERY.1.VR.N.POWERLOAD 

lrheritarce: OVERRIDE .VALUES 

Avunits: (HANOLE PARAMETER.STATES.AV in MODEL-TOOLKIT ALL NIL) 

Comment: "Negative, zero, or posiave, e.g." 
Values: NEGATIVE 
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VALUE.STATE for BATTERY.1.VR.N,XPOWERLOAD Unit 


V. THE IRIS GRAPHICS WORKSTATION 


This chapter discusses the various software layers of the IRIS and how they 


interrelate. 


A. THE LAYERS 
There are four major software layers that the PMAD system utilizes on the IRIS. Each 
one provides a building block on which the PMAD system can be firmly supported. The 
following paragraphs give a brief descriptive of each layer. 
1. UNIX ATT Version 5.3 
The PMAD system relies on the UNIX operating system. UNIX allows the user 
to set up a Custom environment that allows more ease of use of the applications on the 
IRIS. It also is the foundation for many programs since the operating system has many 
useful tools that can be utilized with the C programming language, the primary language of 
all UNIX operating system-based machines. [Ref. 7:p. 1x] 
2. The C Programming Language 
C is a programming language that has economy of expression, modern flow of 
control and data structures and a diverse set of operators. C is not considered a high-level 
language and is not limited to any particular area of application. It is this generality that 
makes C more effective and convenient for many tasks than supposedly more powerful 
languages. [Ref. 7:p. ix] 
3. The MEX Window Manager 
MEX allows for the creation of several independent displays or windows on the 


screen of an IRIS workstation [Ref. 8:p. 78]. One of the most useful features of MEX is 
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its pop-up menu facility which enables a clean interface with the three button mouse on the 
RTS: 

Utilizing MEX and the mouse, the user can click on white space and select 
options off the main menu depicted in Figure 5a or click on a component or connection (in 
blue) and select options off the component menu shown in Figure 5b. The main menu and 
its subordinate menus are displayed in Figure 6. Since the main menu contains all the 


options that are available at lower level menus, it will drive the following discussion. 


POWER NETWORK CONTROL 


STATUS PREDICTION 
FAULT ISOLATION 


POWER FLOW MANAGEMENT 





Figure 5a. The PMAD System Graphics Interface Main Menu 


Component Menu 


HELP 


STATUS PREDICTION 
FAULT ISOLATION 


Figure 5b. The PMAD System Graphics Interface Component Menu 
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MEX allows the user to access the main menu help panel of the PMAD system, 
lower level menus and their help panels. It also provides access to the animation panel that 
depicts the flow of power through the system. The main menu enables the user to conduct - 
system evaluations to determine whether or not predicted or actual faults exits. Similarly, 
the component menu enables the evaluation of predicted or actual single component 
failures. 

4. The Silicon Graphics GL Package 

The PMAD system utilizes the graphics and utility routines provided on the IRIS 
to support high- and low- level graphics. These routines support the use of C, FORTRAN 
and Pascal language routines. The IRIS graphics package supports, but is not limited to, 
the following routines: drawing, coordinate transformation, pattern and font, input and 


output, object creation and editing, curve and surface and shading. [Ref. 8:p. 2] 


B. THE INTEGRATION OF THE LAYERS 

All four of the discussed layers work together to provide the simplicity in the PMAD 
system graphics interface. The UNIX operating system, C programing language, MEX 
and the graphics package enable the depiction of the PMAD system in Figure 7. The user 


is able to have a color graphics interface and a pop-up menu facility in the same screen. 
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Figure 7. The PMAD System Graphics Interface Screen 
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VI. THE COMMUNICATIONS INTERFACE 


The PMAD system communications interface utilizes the Inter-computer 
Communication Package (which is comprised of LISP and C code) developed by students 
at the Naval Postgraduate School [Ref. 9]. This package utilizes the TCP/IP standard and 
the UNIX client/server socket stream capability. The high-level routines for this package 
have been tested on different machines to include the Symbolics and the IRIS. An IRIS 
can be either a server waiting for a client to call and establish a connection or the client. 
The Symbolics LISP machine must always be the client. This is because “the IRIS 
simulates the environment and the Symbolics simulates intelligence. The environment must 
exist before intelligence can be applied to it." This package enables the passing of integers, 
single floating point numbers, single characters and character strings from the IRIS to the 
Symbolics and vice versa. [Ref. 10:p. 1] 

The following is a brief discussion of the IRIS and the Symbolics portions of this 
interface. The directory which contains all of the necessary code for the Inter-computer 
Communications Package can be viewed on the IRIS (IRIS2) at the Naval Postgraduate 


School Graphics and Video Laboratory. Additional details are available in [Ref. 9]. 


A. THE IRIS 

In the utilization of TCP/IP and C, two ports are necessary to establish communication 
with each machine. These ports are connected to sockets in TCP/IP (which can be 
conceptually thought of as electrical sockets in a wall). Once the two channel link has been 
established, each channel is used in an asynchronous mode; 1.e., enabling reading and 
writing of information as desired by both ends of the link. There are three different ways 


to establish the link with another machine. The simplest is using the function 


Ups 





machinepath to create a link between two machines. Since this is the only method used 
by the PMAD system it is the only one that will be discussed. [Ref. 10:p. 1] 

In utilizing the machinepath function certain rules must be followed. Once the call to 
- machinepath has been made, other dynamic allocation (such as makeobject calls to the 
graphics library) cannot be made and only one machinepath call can be made in a 
program. There are two independent processes, receive and send, that communicate 
with the PMAD system C application program using the machinepath. Each receive 
process sleeps after receiving a message for its socket until its buffer is emptied by the 
application program and each send process sleeps after sending a message to its socket 
until the application program requests that it send another message. This method reduces 
processing overhead. Once finished with communications, the links created by 
machinepath can be broken with the function deletemachinepath. This function 
deletes the links from memory, kills the receive and send processes and shuts down and 


closes the TCP/IP socket connections. [Ref. 10:pp. 1-2] 


B. THE SYMBOLICS 

Within the LISP artificial intelligence language exists the Flavor System. This system 
is a ‘mechanism for defining and creating active objects, that is objects which 'remember' 
their state and 'know' how to perform certain operations." A flavor is a class of such 
objects, while conversely, each object of this type is an instance of that flavor. Two 
primary characteristics of a flavor are the set of state variables that an instance of a flavor 
has (instance variables) and the set of operations that may be performed on all instances of 
that flavor. The operations that may be performed on these flavor instances are 
implemented by functions called methods. These methods provide behavior for instances 


of a flavor. [Ref. 11:pp. 97-99] 
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The important flavor in the Inter-computer Communication Package implemented on 
the Symbolics is called conversation-with-iris. There is a method called put-iris 
which converts an argument of any type to a string and sends it to the IRIS host. The 


method get-iris returns the proper type, depending on what was sent. [Ref. 9:p. 4] 
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VII. THE INTEGRATED PMAD SYSTEM PROTOTYPE 


The expert system, graphics and communications interfaces come together smoothly to 
create the integrated PMAD system prototype. A conceptual picture of how these three 


portions of the PMAD system function together can be seen in Figure 8. 


A. THE MAN-MACHINE INTERFACE 

The man-machine interface is based on the concept that an astronaut on a space station 
will utilize a graphics interface with an expert system running in the background and a 
communications interface linking the two together. The astronaut will instruct the expert 
system through the graphics interface to run a System or component check on the PMAD 
system. The graphics interface determines which type of evaluation was requested and 
send that information through the communications interface to the expert system. The 
expert system receives the information and, based on the type of evaluation requested, 
executes the appropriate rules in the knowledge base and sends the resulting status back to 
the graphics interface and the astronaut. Based on the status of the component(s), the 
graphics interface either flashes the component(s) red if failed or yellow if predicted to fail 
for a system check [Ref. 12:p. 71]. For a single component check, the graphics interface 


flashes a component green if the component is functioning properly. 
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B. FAULT DIAGNOSIS 

The expert system for the PMAD system receives information from the graphics 
interface as stated in paragraph VII.A above. The expert system utilizes this information to 
perform fault diagnosis by accessing facts that have been inserted into the knowledge base 
(simulating sensors that gather information for the PMAD system) and by executing fault 
diagnosis rules written in the KEE expert system shell Tell and Ask language. Tell and 
Ask is a high level English-like language that enables the composition of if-then rules and 
the use of the forward and backward chaining (part of the KEE inference engine). A 
forward chaining algorithm searches through the knowledge base to find facts to satisfy the 
if-portion of arule. If it can satisfy all the conditions of the if-portion, the then-portion is 
deduced to be true and is added as a fact to the knowledge base. A backward chaining 
algorithm starts with the then-portion of a rule, also called the goal, and searches back 
through the knowledge base to find the facts needed to prove the then-portion true. That 
means finding all the facts to satisfy the if-portion or finding the then-portion as a fact 
already in the knowledge base. The results are then sent back to the graphics interface via 
the communications interface. The battery structure will be utilized to illustrate this fault 
diagnosis concept. 

The graphics interface, when queried by a user, will request a component check on 
battery.1 (known to the graphics as #5). This component number and the type of check 
(status prediction for predicted failure (0) or fault detection for actual failure (1)) are sent 
via the communications interface to the expert system. In this case it will be a one (1) for 
an actual failure. 

Figure 9a shows the facts for battery.1 and its connections that were inserted into the 
PMAD system knowledge base prior to establishing communications with the IRIS. 


Figure 9b shows the external form of the Tell and Ask fault rule for battery.1. Figure 9c 


Zi 


shows the Tell and Ask backward chaining rule for battery.1. This backward chaining 
rule, when executed, will use the asserted facts and the fault rule to determine if battery.1 
has failed. (Note that the backward chaining rule is written in a form that allows for a 
complete system check or a single component check, whichever is requested.) If the then- 
portion of the backward chaining rule is found to be true, then a slot in battery.1 called 
fault.mode has its value changed to failed. This slot of battery.1 is shown in 
Figure 10. This information is then sent back to the graphics interface in the form of a 
component number (5) and a message containing the appropriate color to flash the 
component and a Status for the component ("R-The fault.mode of battery.1 is failed,” 


the 'R' in the message representing the color red). 


(defun init-values1 () 
(assert ‘(the value.state of battery.1.vr.n.powerload is negative() 


(assert ‘(the trend.state of battery.1.charge is steady)) 





Figure 9a. BATTERY.1 Unit Facts 


Own slot. EXTERNAL.FORM from DEAD_BATTERY.RULE 
Inheritance: OVERRIDE.VALUES 
Avunts: RULEPARSE in RULESYSTEM3, RULE-COMPILER-AV in ACTIVEVALUES 


Cardinalty Max. 1 


Comment: “The text of the rule in the form the user emered. The rule 6 parsed by the RULEPARSE actne value. 
Parsed premsses are placed in the PREMISE siot and conciusions are placed in the CONCLUSION 


Values. (IF (7PART iS IN CLASS BATTERY) 
(THE VALUES.STATE OF (THE POWERLOAD OF (THE VR.N OF ?PART)) IS NEGATIVE) 
(THE TREND.STATE OF (THE CHARGE OF ?PART) IS STEADY) 
THEN 


DEDUCE 
(THE FAULT.MODE OF ?PART 5S FAILED)) 





Figure 9b. BATTERY.1 Unit Tell and Ask Rule 


(defun start_diagnosis (user::*comp* rules world) 


(setq comp (aref *pwrsys_array*® uSer::*comp’)) 
(Query (a fault.mode of ,(if (null comp) ‘?comp comp Is ?what) rules world) 





Figure 9c. BATTERY.1 Unit Backward Chaining Rule 


Inheritance: OVERRIDE .VALUES 


Comment: “Failure mode for this structure” 
Values: FAILED 





Figure 10. FAULT.MODE Slot for BATTERY.1 Unit 


C. THE PMAD SYSTEM ANALYSIS 

The PMAD system, being composed of an expert system, graphics interface and 
communicatins interface, makes it very complex. Both the Symbolics and the IRIS rely on 
mouse interfaces when dealing with the PMAD system. The use of so many different 
interfaces causes the PMAD system to be a system with a delicate balance. If any one of 
these interfaces fails, that delicate balance will be disrupted and the PMAD system 
prototype will not function. 

The fault diagnosis rules for the component connections determine a failure or 
predicted failure by utilizing probability routines called faultroutine and statusroutine 
(both routines are listed in Appendix B) instead of actual Tell and Ask fault rules. 

Having the IRIS with its MEX window manager pop-up menu facility, helps to make 
the PMAD system environment easier to navigate and more organized. The help menus at 
each level of the pop-up menus have a toggle feature that alternates between specific help 
for that menu and information on the use of the mouse. This on-line help enables a new 


user to more easily use the PMAD system. Therefore, although the PMAD system 1s 
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complex and needs total coordination between its several parts, its setup will enable it users 
(astronaut trainees for the Space Station) to be more efficient at their main tasks by reducing 


collateral duties pertaining to systems monitoring. 


D. THE PMAD SYSTEM MANUAL 
This manual, attached as Appendix A, contains information on how to utilize the 
PMAD system. It also contains suggested ways to expand the existing system that will 


make it more useful and efficient. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

The PMAD system prototype proved to be viable. Although not totally completed and 
error-free, the PMAD system validated the concept of using graphics as a main interface 
while leaving the expert system transparent to the user. Although KEE was utilized in the 
design of this prototype, one other expert system shell, ART, was briefly considered. 
Although a useful tool and faster in processing than KEE, ART did not provide the 
necessary ease of use associated with KEE that is paramount in getting individuals quickly 
up to speed on an expert system shell. Not only was the PMAD system a successful 
prototype, it also enabled the expansion of knowledge in artificial intelligence, expert 


systems and their software support tools. 


B. RECOMMENDATIONS 
1. PMAD System Prototype Expansion 
In order to stay on the cutting edge of technology, one must be willing to expand 
or improve. The following paragraphs contain ideas for possible expansion of the PMAD 
system. 
a. On the Symbolics 
Currently, there is only one fault rule written for the PMAD system and that 


is for the battery component. Fault rules need to be written for the other components and 


their connections. Also, as was stated in Chapter VII, the fault rules for the connections of -. - 


the components in the PMAD system knowledge base can be written in the KEE Tell and 


Ask Language, instead of using probability functions. Finally, the PMAD system library 
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and model icons can be modified to more closely resemble the components that they are 
representing. 
b. On the IRIS 
Given more detailed information on the PMAD system, the current high level 
diagram can be extended or PAN/ZOOM capabilities for individual components can be 
developed. Extended screens can be implemented utilizing an icon in the middle of each 
side of the screen or, as an option, off of the PMAD system main menu. PAN/ZOOM 
options could be added to the existing pop-up component menu. Finally, a training 
program could be a choice off the main or component menu that would allow users to 
practice diagnosing component and system faults based on provided scenarios. This 
program would be displayed in the lower left quadrant of the PMAD system graphics 
interface display. 
2. NASA Utilization of PMAD System Prototype 
The NASA SADP had the concept of developing an expert system with color 
graphics as a more clearly understandable side display. This prototype delivers a different 
perspective on the foreseen interface by having the color graphics as the controller with the 
expert system running transparently to the user. This prototype could enable the 
accelerated training of new personnel on artificial intelligence projects by giving them a 
prototype to learn on that is simple and in step with the current goals of NASA. It is a 
prototype idea that can be expanded, modified and completedly changed. This flexibility is 
the true beauty of the PMAD system prototype. It will provide the ability to stimulate ideas 
for its improvement and, as a result, sharpen the minds of those who will design the actual 


Power Control System. 
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3. Practical Application to the United States Navy 

Today's Navy currently relies heavily on satellites for navigation. As a result, 
there are many naval personnel that stand long hours of watch at ground statins, monitoring 
the health and welfare of these satellites. If the idea of the PMAD system prototype was 
modified to accomodate satellites (such as monitoring, change of station and fault 
diagnosis) then many of the individuals already performing this task manually, as a full 
time job, could be utilized in a more efficient capacity. It will be costly to incorporate such 
a syStem into the existing framework but, it is foreseen that such systems as the PMAD 


system prototype will reduce the wear and tear on a most precious resource, people. 


Be. 


APPENDIX A 


THE POWER MANAGEMENT AND DISTRIBUTION (PMAD) 
SYSTEM PROTOTYPE 
MANUAL 
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I. PMAD SYSTEM USER'S MANUAL 

This manual is for those who will utilize the PMAD system. You should familiarize 
yourself with the IRIS 3120 graphics workstation, the Symbolics 3675 LISP machine and 
their associated software before trying to use the system. It may make the first few 


accesses to the PMAD system more pleasant. 


A. GETTING STARTED 
In order to get started on using the PMAD system, you must have an account on both 
the Symbolics and the IRIS and have access to the NASA directory on both machines. 
Once you have become oriented on both machines, the following files should be copied to 
your directory on the respective machine. 
1. Necessary Symbolics Files 
As was Stated, access to the NASA directory on the Symbolics is needed. The 
necessary files will be set up for use. Also the init.lisp file that sets up your Symbolics 
environment should contain the following LISP command: (load 
"syml:>sys>site>thermal.translations") to enable you to access the PMAD 
system. 
2. Necessary IRIS Files 
Access to the NASA directory on the IRIS is needed. The necessary files will be 
available for use. Your .login file that sets up your IRIS environment should include the 
following line: 


alias pmad source runprog 


to enable you to access the PMAD system with fewer commands. 
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3. Logging On 
a. The Symbolics 

Make sure the system in booted up in Genera 7.1 with KEE 3.1. At the 
"Command:" prompt type "login" and a space. You will then be prompted for your user 
name. Type in "NASA" and a CR. The Symbolics should run the init.lisp file and load the 
syml1::sys>site>thermal.translations file. Hit SELECT-K to bring up KEE. At the 
LISP Listener window type the LISP command (load file kt:build-system :mtk) to bring up 
MTK. Then click the left mouse button on the KEE icon, choose the load KB option and 
load the following knowledge bases: syml:>NASA>pwrsys_ and 
syml:>NASA>modelpwrsys. Once loaded, click the middle mouse button on the 
MODELPWRSYS knowledge base in the KB window. Position the resulting window, 
MODELPWRSYS UNITS, in a convenient location. Click the left mouse button on 
MODELPWRSYS.GLOBALS and choose the send message option. On this window 
choose the initialize parameters option. Now, at the LISP Listener window type the 
command (SET PACKAGE COMMON-LISP-USER). Then type the command 
(load "main-pwrsys.lisp"). After this file is loaded you are ready to proceed to 
section I.A.3.b. 

b. The IRIS 

You will need both a side terminal and the IRIS graphics workstation. Since 
the communications package sends status messages to the screen, the side terminal must be 
used as the logon machine. So, at the "IRIS Login" prompt, input your account name and 
a carriage return (CR). At the password prompt, input your password and a CR. You 
will then be prompted for a terminal type. Type vt100 and a CR. Change to the NASA 
directory by typing cd /user/work/NASA and a CR. 
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c. The Integrated PMAD System 

To run the PMAD system program, type “PMAD” at the IRIS system 
prompt. The window manager, MEX, will be invoked on the IRIS workstation, making 
its current screen CONSOLE and then the graphics interface of the PMAD system will be 
displayed on the IRIS. Two messages should come up on the side terminal saying 
“Awaiting connection with SYM1". At this time, go over to the Symbolics (SYM1) and 
type the LISP command (sympwrsys) at the LISP Listener. This command starts the 
Symbolics portion of the PMAD system running. Now the system 1s ready to use. 


4. Use of the Mouse 


The mouse has three buttons with functions as described in Figure Al. 


LEFTMOUSE MIODLEMOUSE RIGHTMOUSE 


TERMINATE RETURN TO SELECT A 
ACTIVITY MOUSE MENU MENU 

(ONLY WHEN IN OPTION 
(CANCEL) A HELP MENU) 





Figure Al. PMAD System Mouse Help Menu 
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5. Select an Option 
To select an option, press the right mouse button to bring up the desired menu 
panel. Options with an arrow in the right hand corner have submenus that can be 
displayed by scrolling off either end of that particular menu. Once you have reached an 
option you desire, release the mouse button. Additionally, once done with a selected 
option and the display, press LEFT MOUSE (CANCEL) to go back to the main menu 
level. 
6. The Main Menu 
The main menu panel of the PMAD system can always be reached by: (1) 
pressing the RIGHT MOUSE or, if several levels down, (2) rolling the mouse off of all 
options letting go of right mouse and then pressing it again as in option 1. 
7. Terminate Activity (CANCEL) 
This option will terminate fault simulations, power flows and help menus. It 
returns you to the main menu level which can be reached as explained in Section I.A.6. 
8. Help Menus 
To choose a particular help menu, press the RIGHT MOUSE, move cursor to the 
HELP option and release the mouse button. The help menu has a toggle feature which lets 
you toggle between the mouse diagram above and specific help for that menu. To leave a 
help menu, press the cancel key, MIDDLE MOUSE. 
9. Exiting the PMAD System 
To exit the program, press the RIGHT MOUSE, place cursor on EXIT option 
and release. The connections between the IRIS and the Symbolics will automatically be 


closed. 
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B. PMAD SYSTEM OVERVIEW 

This section provides an overview of the PMAD system. This includes all menus and 
their options, along with a brief description of each. 

1. PMAD System Main Menu 

The PMAD system Main Menu represents a system based on a photovoltaic 

power supply with battery back-up. It would normally include options for HELP, 
POWER CONDITIONING, POWER DISTRIBUTION and POWER NETWORK 
CONTROL. For simplicity, only the HELP and POWER NETWORK CONTROL 
options were implemented. The STATUS PREDICTION and FAULT ISOLATION and 
POWER FLOW MANAGEMENT options exists are lower level menus and were added to 
the main menu for ease of access. POWER NETWORK CONTROL and POWER FLOW 
MANAGEMENT have submenus. Flow of power through the system can be seen by 
clicking menu option POWER FLOW MANAGEMENT and scrolling off of its left or right 
side. STATUS PREDICTION and FAULT ISOLATION enable the running of a complete 
system check to determine whether a predicted or an actual failure has occurred somewhere 
in the PMAD system. A diagram of the PMAD System Main Menu can be seen in 
Figure sa 










= PMAD =f 
____ STATUS PREDICTION 


POWER FLOW MANAGEMENT > 


Figure A2. PMAD System Main Menu 
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2. Power Network Control Menu 
The Power Network Control menu is designed to break down system analysis 
into smaller subtasks which can be managed independently and more efficiently. It would 
normally include options for HELP, DISTRIBUTION MANAGEMENT, LOAD 
MANAGEMENT, HEALTH MANAGEMENT and COMMAND/ DATA I/F. Again, only 
the HELP and HEALTH MANAGEMENT options were implemented. HEALTH 
MANAGEMENT has submenus. This menu can be seen in Figure A3. 






POWER NETWORK CONTROL 


HELP 
HEALTH MANAGEMENT > 





Figure A3. Power Network Control Menu 
3. Health Management Menu 

The Health Management menu's function is to monitor the health of the PMAD 
system and to predict its future status to enable parts’ replacement before failure. The 
options are HELP, MAINTENANCE SUPPORT, FAULT MANAGEMENT and POWER 
FLOW MANAGEMENT. POWER FLOW MANAGEMENT is not one of the original 
options but was added to provide the user animation that shows the different ways power 
may flow through the PMAD system. All options except HELP have submenus. This 


menu can be seen in Figure A4. 
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HEALTH MANAGEMENT 


HELP 
MAINTENANCE SUPPORT 


> 
FAULT MANAGEMENT > 
POWER FLOW MANAGEMENT > 


Figure Ad. Health Management Menu 











4. Maintenance Support Menu 

The Maintenance Support menu provides information needed to carry out service 
procedures, both unscheduled and routine, and step-by-step instructions for these 
procedures to include contingency information to handle foreseeable problems. The 
options would normally be HELP, STATUS PREDICTION, PREVIOUS 
MAINTENANCE SCHEDULING, NETWORK SOLUTION, MONITORING and 
HISTORY RECORDS GENERATION. The only options implemented were HELP and 
STATUS PREDICTION. This menu can be seen in Figure AS. 


MAINTENANCE SUPPORT 


HELP : 
| STATUS PREDICTION 





Figure AS. Maintenance Support Menu 
5. Fault Management Menu 
The Fault Management menu provides options that enable the detection of an 
abnormal state in the PMAD system, the isolation of faults that cause this state and 
suggested actions that could bring the system back to an operational state. The options that 


would normally be present are HELP, FAULT DETECTION, FAULT ISOLATION, 


FAULT COMPENSATION and FAULT LOGGING. The only implemented options are 
HELP, FAULT DETECTION and FAULT ISOLATION, where FAULT DETECTION 
and FAULT ISOLATION currently call the same detection routine. This menu can be seen 


in Figure A6. 


~ FAULT MANAGEMENT J 


a | 
FAULT DETECTION 
FAULT ISOLATION 






Figure A6. Fault Management Menu 
6. Power Flow Management 
The Power Flow Management menu's purpose is to show the flow of power 
through the system. The options are HELP, CHARGE BATTERIES, DISCHARGE 
BATTERIES, USE PHOTOVOLTAIC SOLELY, USE PHOTOVOLTAIC AND 
BATTERIES. This menu can be seen in Figure A7. 





POWER FLOW MANAGEMENT 


USE PHOTOVOLTAICS AND 
BATTERIES 


Figure A7. Power Flow Management Menu 











7. The Component Menu 
The Component Menu provides options HELP, FAULT ISOLATION and 
STATUS PREDICTION. These options when chosen from the Component menu enable 
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the checking of only a single component vice a complete system's check. This menu can 


be seen in Figure A&. 


Component Menu 


HELP 


STATUS PREDICTION 


FAULT ISOLATION 





Figure A8. PMAD System Component Menu 


C. ON-LINE HELP 
This manual, in its entirety, will be available in a file called README. It can be 


viewed by typing the command pmadman. 
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II. PMAD SYSTEM PROGRAMMER'S MANUVAL 


This manual is for those who would like to modify the PMAD system. This manual 
discusses applications software on the Symbolics and the IRIS and possible ideas for 
PMAD system expansion. Before attempting modifications, it is recommended that the 


following courses be taken before utilizing this system: 
CS3313 - Introduction to Artificial Intelligence, 


CS4202 - Introduction to Computer Graphics, and 
CS4313 - Computers for Artificial Intelligence. 
A. SYMBOLICS APPLICATION SOFTWARE ORGANIZATION 
The application software developed on the Symbolics is consolidated into four LISP 
files: init-pwrsys.lisp, keefiles.lisp, pwrsys-net.lisp and main-pwrsys.lisp. 
The subroutines that these files consist of will be discussed in this section. Familiarization 
with packages and how they interrelate on the Symbolics will be quite helpful, especially 
the packages COMMON-LISP-USER and KEE, since the LISP command (zl:pkg- 
goto [package name}) is used throughout the LISP files in order to transfer control 
between these two packages. 
1. Init-pwrsys.lisp 
This file contains functions that are used to set up the initial PMAD system 
environment under the package COMMON-LISP-USER, before package KEE functions 
are utilized. This file consists of the following variable declarations (all variables with 


asterisks (*) around them are global, known to all the files). 


*typenum*® - This variable holds the type of system check requested (zero (0) for fault 
detection and one (1) for status prediction). 


*message_ out* - This variable holds the message that is sent from the Symbolics to 
the IRIS containing the status of the component that was checked. 
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user::*comp* - This variable holds the component number sent from the IRIS to the 
USER package on the Symbolics. 


*randnum* - This variable holds the random number generated to determine if a 
connections of component has failed. 


user::*fault_list* - This variable holds the list of failed components based on 
backward chaining through the facts and rules of the PMAD system knowledge 
base. 


*part* - This variable holds the component from the pwrsys_array that corresponds to 
the component number sent from the IRIS. 


*data_in* - This variable holds information sent from the IRIS to the Symbolics. 
*data_out* - This variable holds information sent from the Symbolics to the IRIS. 


*finished_processing - This variable holds the flag sent from the Symbolics to the 
IRIS to signal the end of processing for that particular system or component check. 


The following functions are used: 


randroutine - This routine generates the random number to be used by the 
faultroutine and predictedroutine. 


faultroutine - This routine determines, based on whether the random number from 
randroutine was between 0.9 and 1.0, if the component connection in question 
(*comp*) has failed. 


predictedroutine - This routine determines, based on whether the random number 
from randroutine was between 0.8 and 1.0, if the component connection in question 
(*comp*) is predicted to fail. 


process data - This routine determines whether the part in question is a component or 
a component connection (part number O or 15 through 30). If the part is a 
connection, it runs the appropriate probability function, depending on the type of 
check desired. 


2. Keefiles.lisp 
This file contains those functions that need to run on the Symbolics under 


package KEE. They are as follows: 


start_diagnosis - This routine sets a variable equal to a component or connection from 
the PMAD system component and connection array. 


*pwrsys_array* - That variable is used in the backward chaining rule that determines 
fault occurrences. 


init-valuesl - This routine inserts facts concerning the battery.1 component into the 
PMAD system knowledge base. 


reset-valuesl - This routine deletes facts concerning the battery.1 component from 
the PMAD system knowledge base. 
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*pwrsys_array* - An array of the components and connections of the PMAD system 
knowledge base. 


*predicted_array* - This is an array of messages for the predicted failure of PMAD 
system components and connections, using the names that correspond to those on 
the graphics interface side of the PMAD system. 


*fault_array* - This is an array of messages for the failure of PMAD system 
components and connections, using the names that correspond to those on the 
graphics interface side of the PMAD system. 


*okay_array* - This array is only accessed when a single component check results in 
a correctly functioning component. 


check_predicted_array - This routine determines which predicted failure message to 
send back to the IRIS. 


check _fault_array - This routine determines which failed message to send back to the 
IRIS. 


output routine - This routine takes a line in the fault list that is generated from the 
results of backward chaining through the PMAD system knowledge base and, based 
on whether it was an actual or predicted failure, runs the check_predicted_array 
or check_fault_array routine and sends the appropriate message to the IRIS. 


process list - This routine cycles through the fault list, line by line, in order to provide 
the IRIS with information on PMAD system components and connections. 


3. Pwrsys-net.lisp 
This file contains the functions, flavors and methods that run under package 
COMMON-LISP-USER and that enable the Symbolics to communicate with the IRIS. 
This code was developed by Sehung Kwak and Captain Andy Nelson. Please see Major 
Ted Barrow's M.S. Thesis dated June 1988 for detailed descriptions of the functions in 
this file. The following are two functions that were set up to provide ease in utilization of 


this file. 


receive data - Method for the Symbolics to receive information (integers, single 
floating-point numbers, single characters and characters strings) from the IRIS. 


send_data - Method for the Symbolics to send information to the IRIS. 


4. Main-pwrsys.lisp 
This file controls the Symbolics portion of the PMAD system. It loads the 


previously mentioned files, connects the Symbolics to the IRIS by executing the 
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start_talking function which resides in pwrsys-net.lisp and contains the functions that 
have primary control of the PMAD system on the Symbolics, sympwrsys. 

Sympwrsys initializes the variables that signal the end of a system or 
component check (*finished_processing*) or the end of communications between the 
two machines (*done*). It changes the current packages to KEE and inserts the facts 
concerning battery.1 into the PMAD system knowledge base. It then returns the current 
package to COMMON-LISP-USER. 

The large do loop will loop until the *done* variable is set to true. Diagnostic 
print messages are still in the code due to the debugging that was in process at the time of 
the printing of this manual. Data is sent from the IRIS to the Symbolics in the form of the 
type of check desired (predicted or actual failure or end of communications flag) and a 
component number (corresponding to a component, connection or complete system check). 

When the end of communication flag (999) is received, the stop-talking 
function is executed, the *done* variable is set to true and communication is terminated. 
Otherwise, the type of check and component number are saved in variables *typenum* 
and user::*comp*, respectively. Sympwrsys then calls the process-data function. 
The variable *part* is set to the input component number. If *part* corresponds to the 
kee::*pwrsys_array entry ‘nil’ (for system check) then run the block LISP code 
(progn) to process the fault list Gf any) returned from the process_data function by 
executing the kee::process_list function. Otherwise, run the progn that processes the 
single message in the fault list using the kee::process_list function. 

Both progn sections send the component number and a status message back to 
the IRIS. Before connection is broken, the facts concerning baftery.1 are retracted from 
the PMAD system knowledge base using the reset-valuesl1 command and the current 


package is changed back to COMMON-LISP-USER. 
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B. IRIS APPLICATION SOFTWARE ORGANIZATION 
This section will provide more of an overview of IRIS application software since in- 
line documentation is provided. Also, when possible, files of similar subject will be 


grouped together. 


Makefile - A file that enables an organized method for compiling files. 
README - An on-line version of the entire PMAD system manual. 


Header files - Shared.h contains information for the files that utilize communications 
software. Pwrsys.h contains numerical definitions for the PMAD system parts, a 
structure definition for these parts and other useful declarations. 


Help files - Help.c contains the main control module for all the help menus called 
help_menu. It toggles between specific help and the mouse help. It also contains 
the processhelp routine that enables the creation and display of specific help for the 
Current menu. faulthelp.c, healthhelp.c, mainhelp.c, maintspthelp.c, 
mousemenhelp.c, nethelp.c and pwrflowhelp.c contain the help menu text 
for their respective menus. 


Executable files - NaSapwrsys brings up the PMAD system with communications 
capability when executed. Nonetpwrsys brings up the PMAD system without the 
communications. Runprog is a command file that invokes the MEX window 
manager and that executes the nasapwrsys file. 


Newpwrsys.c - This is the primary control module for the entire graphics interface. It 
is mouse-oriented and utilizes the IRIS window manager, MEX. 


Component files - The componenthit.c file contains routines that determine whether 
the current mouse location corresponds to a component hit. The compmenu.c file 
contains the routine that displays the menu that provides the choice of items that are 
predicted to fail or that have actually failed. This menu is only seen when the 
nonetpwrsys executable file is run. 


Diagram.c - This file contains the routine that creates the different objects in the PMAD 
System diagram, make diagram. It also contains the routines that change all 
objects in the PMAD system diagram back to their original color after processing, 
cleanup_flow and cleanup diagram, and that call all the objects in the PMAD 
system for screen display, call_ diagram. 


Compstat.c - This file contains routines faultisolation and statusprediction that 
check for actual and predicted faults in the system, respectively. The 
componentstatus routine checks the status of individual components in the 
diagram. Routine process message determines whether to flash a component 
red, yellow or green and displays the status message, based on messages received 
from the Symbolics. 
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Pwrflow.c - This file contains routines that show the flow of power from the 
photovoltaic equipment to the battery (charge_battery), the flow of power from 
the batteries through the rest of the system (discharge_battery), the flow of 
power from the photovoltaic equipment throughout the rest of the system 
(use_pv_oOnly) and the flow of power from the photovoltaic equipment and the 
batteries throughout the rest of the system (use_pv_and_batteries). 


Object files - All of the ".c" files discussed previously have a ".o" file associated with 
them. These ".o" files are the compiled versions of their ".c" source code. 


C. PMAD SYSTEM EXPANSION 

Now that the applications software for each machine has been discussed, ideas for 
PMAD system expansion will be presented. This presentation not only includes these 
ideas, but also methods for their implementation. 

1. PMAD Expert System Expansion 

Currently there is only one fault rule written for the PMAD system knowledge 
base and that is for the battery.1 component. Fault rules need to be written for the other 
components and their connections. Before modifying the PMAD system, you should 
understand the KEE Tel! and Ask language and how to write the external.form of a 
fault rule. Also, familiarity with the ZMACS editor on the Symbolics would be helpful. 
The following paragraphs will explain how to add a fault rule to the PMAD system 
knowledge base. 

If your KEE environment does not have an output window displayed, choose the 
desktop option in the top left-hand corner. Choose the create output window option and 
follow the instructions provided by KEE. 

Using the mouse, place the cursor on the PWRSYS knowledge base inside the 
KB window and click the left mouse button. A PWRSYS menu will pop-up. Choose the 
display option by placing the cursor there using the mouse and clicking the left mouse 
button. The output window will display the contents of the PMAD system knowledge 


base. 
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Place the cursor on the FAULT.RULES class at the top of the PMAD system 
knowledge base and click the left mouse button. Choose the "create new unit" option off 
of the pop-up menu and follow the instructions that are provided. When asked to input the . 
external.form of the rule, realize that if an input error is made it can be corrected by 
backspacing or by saving what is already typed (with proper LISP syntax) and editing it 
using the ZMACS editor. 

2. PMAD System IRIS Graphics Extended Screen and Pan/Zoom 

Capabilities 

Given more detailed information on the PMAD system, a programmer can either 
extend the current high-level diagram or develop Pan/Zoom capabilities for the individual 
components. Extended Screens of the current high-level diagram can be done utilizing 
icons in the middle of the four corners of the screen (which can be created as objects) or as 
an option off of the PMAD system main pop-up menu. Depending on where the cursor is 
positioned, a corresponding extended screen will appear. 

Pan/Zoom options can be added to the existing component pop-up menu. When 
chosen, that option could note the component in question and, based on that information, 
bring up a detailed schematic of that component. In either case, extended screen or 


pan/zoom, the following files should be considered for modification: 


Diagram.c will need objects added to represent the new portion of the screen or the 
detailed schematic of the component. 


Pwrsys.h will need "#define" statements that represent these additions. 
Newpwrsys.c will need to call the routine that will perform these new tasks. 


Compmenu.c and componenthit.c will need to reflect the additions of new 
components. 


a 


3. PMAD System Training Program 
A training program could be written for the PMAD system. It would be a choice. 
off of the main or component pop-up menu of the graphics interface. That would allow 
practicing of diagnosing faults that are chosen from a data base of system fault scenarios. .. 
This system can be displayed in the lower left quadrant of the IRIS screen. It could be an 
independent program that is pulled into the PMAD system through the pop-up menus. It 
would need to be incorporated into the graphics using the method already used by the 
PMAD system help routines, while still displaying the portion of the system desired for 
viewing. 
4. PMAD System Help Files 
The help files for the PMAD system on the IRIS can be expanded to contain 
detailed information. The following suggested method for expansion will use mainhelp.c 
for the example. 
In the static str80, array add the desired number of quoted lines of information, 
not to exceed 80 characters per line. Change the NUMHELP! definition at the top of the 
file (from three (3)) to reflect that desired number. 
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II. USEFUL REFERENCE DOCUMENTS AND MANUALS 


The following list is provided to assist those who will be working with the PMAD 


system prototype: 


Barrow, T., Distributed Computer Communications in Support of Real- Time Visual 
Simulations, Master's Thesis, Naval Postgraduate School, Monterey, California, 
June 1988. 


Bromley, H., and Lamson, R., LISP Lore: A Guide to Programming the LISP 
Machine, Kluwer Academic Publishers, 1987. 


Erickson, W., and Nienart, J.. MTK Reference Manual and User Guide (draft), 10 
April 1988. 


Erickson, W., and others, "NASA Systems Autonomy Demonstration Program: A 
Step Toward Space Station Automation," SP/E Space Station Automation II, v. 729, 
1986. 


IntelliCorp KEE Software Development System User's Manual, IntelliCorp, 1986. 
IRIS User’s Guide: Volume 1 Graphics Programming, Silicon Graphics, Inc., 1986. 


Kernighan, B., and Ritchie, D., The C Programming Language, Prentice-Hall, Inc., 
7S. 


Martin Marietta Denver Aerospace Task I Study Report MCR-86-583, Space Station 
Automation of Common Module Power Management and Distribution, by Miller, W., 
and others, July 1986. 


User's Guide to Symbolics Computers, Symbolics, Inc., July 1986. 


Wilensky, R., Common LISPcraft, W. W. Norton & Company, Inc., 1986. 
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IV. IMPORTANT POINTS OF CONTACT 


In case the references listed in the previous section do not answer specific questions, 
the following points of contact are provided: 


Dr. Henry Lum 

MS244-7 

NASA Ames Research Center 
Moffett Field, CA 94035 
AUTOVON 359-6544 
COMMERCIAL 1-415-694-6544 


Ms. Carla Wong 

MS244-18 

NASA Ames Research Center 
Moffett Field, CA 94035 
COMMERCIAL 1-415-694-4294 


Mr. William Erickson 

MS244-18 

NASA Ames Research Center 
Moffett Field, CA 94035 
AUTOVON 359-3369 
COMMERCIAL 1-415-694-3369 


Dr. Robert McGhee 

Department of Computer Science 
Naval Postgraduate School 
Monterey, CA 93943-5100 
AUTOVON 878-2449 
COMMERCIAL 1-408-646-2449 


Dr. Michael Zyda 

Department of Computer Science 
Naval Postgraduate School 
Monterey, CA 93943-5000 
AUTOVON 878-2449 
COMMERCIAL 1-408-646-2449 


Lois Brunner 

Joint Command, Control and Communications Academic Group 
Naval Postgraduate School 

Monterey, CA 93943-5000 

AUTOVON 878-2618 

COMMERCIAL 1-408-646-2618 
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LT Gina L. Hester 

Fleet Surveillance Support Command 
Chesapeake, VA 23322-5010 
COMMERCIAL 1-804-421-8203 
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APPENDIX B 


PMAD SYSTEM SOURCE LISTING 


MAIN-PWRSYS.LISP 


(load “init-pwrsys.lisp") 
(load "pwrsys-net. lisp") 
(load "keefiles.lisp") 
(user: :start-talking) 
(defun sympwrsys () 


(setq *done* 'nil) 
(setq *finished_processing* 555) 


(zl:pkg-goto ‘kee) 
(kee::init-values1) 
(zl:pkg-goto 'common-lisp-user) 


(do () 
(*done*) 
(progn (princ “Awaiting data from IRIS2.") 
(setq *data_in* (user::receive_data)) 


af (= *data_in* 999) 
(progn (user::stop-talking) 
(setq *done* '‘t) 


(progn (setq *typenum* *data_in*) 
(print *data_in*) 
(setq *data_in* (user::receive_data)) 
(print *data_in*) 
(setq user::*comp* *data_in*) 
(process_data *typenum* *data_in* user::*comp*) 
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(print kee::*fault_list*) 
(setq *part* (aref kee::*pwrsys_array* *data_in*)) 


Gif (eq *part* 'nil) 
(progn (if (car kee::*fault_list*) 
(process_list kee::*fault_list*) 


(progn (zl:pkg-goto ‘common-lisp-user) 


(user::send_data "NO SYSTEM PROBLEMS") 
(user::send_data *finished_processing*) 
) 
) 
) 


(if (car kee::*fault_list*) 
(kee::process_list kee::*fault_list*) 
(progn (setq *data_out* *data_in*) 
(print *data_out*) 
(setq *message_out* (aref kee::*okay_array* *data_out*)) 
(princ *message_out*) 


(zl:pkg-goto 'common-lisp-user) 
(user::send_data *message_out*) 
(user::send_data *data_out*) 


(user::send_data "END OF COMPONENT CHECK") 
(user::send_data *finished_processing*) 


) 


(kee::reset-values1) 


(zl:pkg-goto ‘common-lisp-user) 


aye 


INIT-PWRSYS.LISP 


(load "sym1:>sys>site>thermal.translations’ ) 


(defvar *done* nil) 

(defvar *typenum* nil) 
(defvar *message_out* nil) 
(defvar user::*comp* nil) 
(defvar *randnum* nil) 
(defvar user::*fault_list* nil) 
(defvar *part* nil) 


(defvar *data_in* nil) 
(defvar *data_out* nil) 


(defvar *finished_processing* nil) 


(defun randroutine () 
(setq user::num (random 1001)) 
(setq *randnum* (/ user::num 1000)) 


(defun faultroutine (user::*comp* rand) 
(if (> rand 0.8) 
(progn (zl:pkg-goto ‘kee) 
(assert “(a fault.mode of ,(aref *pwrsys_array* user::*comp%*) is failed)) 


(defun predictedroutine (user::*comp* rand) 
af (> rand 0.9) 
(progn (zl:pkg- goto ‘kee) 
(assert (a fault.mode of ,(aref *pwrsys_array* user::*comp*) 
is predicted_failure)) 
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(defun process_data (type partnum user::*comp*) 
(cond ((or (= partnum Q) (and (>= partnum 15) 
(<= partnum 50))) 
(randroutine) 
(if (= type 0) 
(faultroutine user::*comp* *randnum*) 
(predictedroutine user::*comp* *randnum*) 


(setq user::*fault_list* 
(kee::start_diagnosis user::*comp* ‘kee::fault.rules 'kee::basicworld)) 
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PWRSYS-NET.LISP 


:3: -*- Mode: LISP; Syntax: Common-lisp; Package: USER -*- 


; handy macro to have in the send message farthur down 


(defmacro loopfor (var init test exp] &optional exp2 exp3 exp4 exp5) 
“(prog () 

(setq ,var ,init) 

tag 
exp | 
exp2 
Cxp> 
.exp4 
expd 
(setq ,var (1+ ,var)) 
(if (= ,var ,test) (return t) (go tag)))) 


(defun convert-number-to-string (n) 
(princ-to-string n)) 


(defun convert-string-to-integer (str &optional (radix 10)) 
(do (g 0 (+) 1)) 
(n 0 (+ (* n radix) (digit-char-p (char str }) radix)))) 
((= j (length str)) n))) 


(defun find-period-index (str) 
(catch ‘exit 
(dotimes (x (length str) nil) 
(if (equal (char str x) (char "." 0)) 
(throw ‘exit x))))) 


(defun get-leftside-of-real (str &optional (radix 10)) 
(do (90 (1+))) 
(n O (+ (* n radix) (digit-char-p (char str j) radix)))) 
((or (null (digit-char-p (char str j) radix)) (=j (length str))) n))) 


(defun get-rightside-of-real (str &optional (radix 10)) 
(do ((index (1+ (find-period-index str)) (1+ index)) 
(factor 0.10 (* factor 0.10)) 
(n 0.0 (+ n (* factor (digit-char-p (char str index) radix))))) 
((= index (length str)) n ))) 
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(defun convert-string-to-real (str &optional (radix 10)) 
(+ (float (get-leftside-of-real str radix)) (get-nghtside-of-real str radix))) 


(defvar *inis-port]* 1027) ; this is the send port 

(defvar *iris-port2* 1026) ; this is the receive port 
(defvar *local-talk-port* 1500) ; this is the local send port 
(defvar *local-listen-port* 1501) ; this is the local receive port 


(defflavor conversation-with-iris ((talking-port-number _ *iris-port1*) 
(listening-port-number *iris-port2*) 
(local-talk-port-number “*local-talk-port*) 
(local-listen-port-number *local-listen-port*) 
(talking-stream) 

(listening-stream) 
(destination-host-object) 


) 
() 


‘initable-instance-variables) 


(defmethod (:init-destination-host conversation-with-ins) 
(name-of-host) 
(setf destination-host-object (net:parse-host name-of-host))) 


(defmethod (:start-iris conversation-with-iris) () 
(setf talking-stream 
(tcp:open-tcp-stream destination-host-object 
talkin g-port-number 
local-talk-port-number)) 
(setf listening-stream 
(tcp:open-tcp-stream destination-host-object 
listening-port-number 
local-listen-port-number)) 
"A conversation with the iris machine has been established") 


(defmethod (:reuse-iris conversation-with-iris_) 


) 


; (setq *tcp-handler]* (send ip::*tcp-handler* :get-port) 
;  *tcp-handler2* (send ip::*tcp-handler* :get-port) 

;  talking-port *tcp-handler1* 

;  listening-port *tcp-handler2*)) 
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(defun read-string (stream num-chars) 
(let ((out-string "")) 
(dotimes (i num-chars) 
(setf out-string (string-append out-string (read-char stream)))) 
out-string)) 


(defmethod (:get-iris conversation-with-iris) () 
(let* ((typebuffer "") 
(lengthbuffer" ") 
(buffer “ae 
(buffer-length 1)) 
(progn 
(setf typebuffer 
(read-string listening-stream 1)) 
(setf lengthbuffer 
(read-string listening-stream 4)) 
(setf buffer-length 
(convert-string-to-integer lengthbuffer)) 
(setf buffer 
(read-string listening-stream buffer-length)) 


(cond ((equal typebuffer "I") (convert-string-to-integer buffer)) 
((equal typebuffer "R") (convert-string-to-real buffer)) 
((equal typebuffer "C") buffer) 

(t nil))))) 


(defvar *step-var* Q) 


(defun my-wnite-string(string stream) 
(let* ((num-chars (length string))) 
(dotimes (1 num-chars) 
(write-char (aref string 1) stream)))) 


(defmethod (:put-iris conversation-with-iris) 
(object) 


(let* ((buffer (cond 
((equal (type-of object) 'bignum) (convert-number-to-string object)) 
((equal (type-of object) 'fixnum) (convert-number-to-string object)) 
((equal (type-of object) ‘single-float) (convert-number-to-string object)) 
((equal (type-of object) 'string) object) 


(t “error'))) 
(buffer-length (length buffer)) 


(typebuffer (cond ((equal (type-of object) ‘bignum) "I") 
((equal (type-of object) ‘fixnum) "I") 
((equal (type-of object) 'single-float) “R") 
((equal (type-of object) ‘string) "C") 
(ce) 


(lengthbuffer (convert-number-to-string buffer-length))) 


(progn 
(my-write-string typebuffer talking-stream) 
(send talking-stream :force-output) 


af (= (length lengthbuffer) 4) 
(write-string lengthbuffer talking-stream) 
(progn 
(loopfor *step-var* (length lengthbuffer) 4 
(write-string "OQ" talking-stream)) 


(my-write-string lengthbuffer talking-stream) 


)) 


(send talking-stream :force-output) 


(my-write-string buffer talking-stream) 
(send talking-stream :force-output) 


))) 


(defmethod (:stop-ins conversation-with-iris) 


(progn (send talking-stream :close) 
(send listening-stream :close))) 


(setq *comm_handler* (make-instance ‘conversation-with-iris)) 
(send *comm_handler* :init-destination-host ‘iris2) 


(defun start-talking () 


(send *comm_handler* :start-iris)) 
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(defun stop-talking () 
(send *comm_handler* :stop-iris) 
(send *comm_handler* :reuse-iris)) 


(defun send_data (x) 
(send *comm_handler* :put-iris x)) 


(defun receive_data () 
(send *comm_handler* :get-iris)) 


;(setq myvar (receive_data)) 
(sende@ata: 1: oie shel 0 lel 


1 
;(send_datal) ;1 1.0°111° 
-(send_datal.0) ;1 10"°111" 
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KEEFILES.LISP 


33; -*- Mode: LISP; Syntax: Common-lisp; Package: KEE -*- 


(defun start_diagnosis (user::*comp* rules world) 
(setq comp (aref *pwrsys_array* user::*comp*)) 


(query “(a fault.mode of ,Gf (null comp) '?comp 
comp) is ?what) rules world) 


) 


(defun init-valuesl () 
(assert ‘(the value.state of battery.1.vr.n.powerload is negative)) 
(assert (the trend.state of battery.1.charge is steady)) 


(defun reset-values1 () 
(initialize.keeworlds) 
(retract ‘(the value.state of battery.1.vr.n.powerload is negative)) 
(retract (the trend.state of battery.1.charge is steady)) 


(defvar *pwrsys_array* (make-array “(52) :initial-contents 

*(epsboard.1 
pvequip. 1 
betajoint. 1 
voltreg.1 
battery. 1 
inverter. 1 
alphajoint. 1 
maindistboard. 1 
epspdca.1 
basicpdca. 1 
seboard. 1 
boardswitch.1 
basicswitch. 1 
basicswitch.2 
basicswitch.3 
epsboard.1.pvequipnode 
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epsboard.1.betajointnode 
epsboard.1.inverternode 
epsboard.1.maindistboardnode 
epsboard.1.epspdcanode 
pvequip. l.e.n 
pvequip.1.b.n 
betajoint. 1.1 
betajoint.1.e.n 
betajoint.1.o 
voltreg. 1.1 
voltreg.1.bt.n 
voltreg.1.o 
battery.1.vr.n 
inverter. 1.1 
InWeGen ken 
inverter. 1.0 
alphajoint. 1.1 
alphajoint.1.o 
maindistboard. 1.a.n 
maindistboard.1.e.n 
maindistboard.1.p1.n 
maindistboard.1.p2.n 
epspdca.1.m.n 
epspdca.1.e.n 
epspdca.1l.swl 
epspdca. 1.sw2 
basicpdca.1.m.n 
basicpdca.1.swl 
basicpdca.1.sw2 
seboard.1.bsw.n 
boardswitch. 1.1 
boardswitch.1.seb.n 
basicswitch. 1.1 
basicswitch.2.1 
basicswitch.3.i 
nil)) 


(defvar *predicted_array* (make-array ~(51) :initial-contents 

“CY-THE FAULT.MODE OF EPSCNTL IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PVEQUIP IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF BETAJ IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF VOLTREG IS PREDICTED-FAILURE"” 
"Y-THE FAULT.MODE OF BATTERIES IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF DC_AC_INVERT IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF ALPHAJ IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF MAINDIST IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PDCAI1 IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PDCA2 IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF SESWCNTL IS PREDICTED-FAILURE" 
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"Y-THE FAULT.MODE OF SW1_1 IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF SW1_2 IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF SW2_1 IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF SW2_2 IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF EPSPVNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF EPSBJTNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF EPSINVERTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF EPSMDBNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF EPSPDCA1NODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PVEQUIPEPSNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PVEQUIPBJTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF BJTPVEQUIPNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF BJTEPSNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF BJTVOLTREGNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF VOLTREGBJTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF VOLTREGBATTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF VOLTREGINVERTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF BATTVOLTREGNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF INVERTVOLTREGNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF INVERTEPSNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF INVERTAJTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF AJTINVERTNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF AJT[MDBNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF MDBAJTNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF MDBEPSNODE IS PREDICTED-FAILURE" 

"Y-THE FAULT.MODE OF MDBPDCAINODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF MDBPDCA2NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF PDCAIMDBNODE IS PREDICTED-FAILURE" 
"Y-THE FAULT.MODE OF PDCAIEPSNODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF PDCAISW11NODE IS PREDICTED-FAILURE" 
“"Y-THE FAULT.MODE OF PDCA1SW12NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF PDCA2MDBNODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF PDCA2SW21NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF PDCA2SW22NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SESWCNTLSW11NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SW11PDCA1NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SW11SESWCNTLNODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SW12PDCA1NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SW21PDCA2NODE IS PREDICTED-FAILURE" 
“Y-THE FAULT.MODE OF SW22PDCA2NODE IS PREDICTED-FAILURE")) 


(defvar *fault_array* (make-array “(51) :initial-contents 

*("R-THE FAULT.MODE OF EPSCNTL IS FAILED" 
"R-THE FAULT.MODE OF PVEQUIP IS FAILED" 
“"R-THE FAULT.MODE OF BETAJ IS FAILED" 
"R-THE FAULT.MODE OF VOLTREG IS FAILED" 
"R-THE FAULT.MODE OF BATTERIES IS FAILED" 
“"R-THE FAULT.MODE OF DC_AC_INVERT IS FAILED" 
“R-THE FAULT.MODE OF ALPHAJ IS FAILED" 
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"R-THE FAULT.MODE OF MAINDIST IS FAILED" 

"R-THE FAULT.MODE OF PDCA1 IS FAILED" 

"R-THE FAULT.MODE OF PDCA2 IS FAILED" 

"R-THE FAULT.MODE OF SESWCNTL IS FAILED" 

"R-THE FAULT.MODE OF SW1_1 IS FAILED" 

"R-THE FAULT.MODE OF SW1_2 IS FAILED" 

"R-THE FAULT.MODE OF SW2_1 IS FAILED" 

"R-THE FAULT.MODE OF SW2_2 IS FAILED" 

"R-THE FAULT.MODE OF EPSPVNODE IS FAILED" 

"R-THE FAULT.MODE OF EPSBJTNODE IS FAILED" 

"R-THE FAULT.MODE OF EPSINVERTNODE IS FAILED" 
"R-THE FAULT.MODE OF EPSMDBNODE IS FAILED" 
"R-THE FAULT.MODE OF EPSPDCAI1NODE IS FAILED" 
"R-THE FAULT.MODE OF PVEQUIPEPSNODE IS FAILED" 
"R-THE FAULT.MODE OF PVEQUIPBJTNODE IS FAILED" 
"R-THE FAULT.MODE OF BJTPVEQUIPNODE IS FAILED" 
"R-THE FAULT.MODE OF BJTEPSNODE IS FAILED" 

"R-THE FAULT.MODE OF BJTVOLTREGNODE IS FAILED" 
"R-THE FAULT.MODE OF VOLTREGBJSTNODE IS FAILED" 
"R-THE FAULT.MODE OF VOLTREGBATTNODE IS FAILED" 
"R-THE FAULT.MODE OF VOLTREGINVERTNODE IS FAILED" 
"R-THE FAULT.MODE OF BATTVOLTREGNODE IS FAILED" 
"R-THE FAULT.MODE OF INVERTVOLTREGNODE IS FAILED" 
"R-THE FAULT.MODE OF INVERTEPSNODE IS FAILED" 
"R-THE FAULT.MODE OF INVERTAJTNODE IS FAILED" 
"R-THE FAULT.MODE OF AJTINVERTNODE IS FAILED" 
"R-THE FAULT.MODE OF AJTMDBNODE IS FAILED" 
"R-THE FAULT.MODE OF MDBAJTNODE IS FAILED" 
"R-THE FAULT.MODE OF MDBEPSNODE IS FAILED" 
"R-THE FAULT.MODE OF MDBPDCAINODE IS FAILED" 
"R-THE FAULT.MODE OF MDBPDCA2NODE IS FAILED" 
"R-THE FAULT.MODE OF PDCAIMDBNODE IS FAILED" 
"R-THE FAULT.MODE OF PDCAIEPSNODE IS FAILED" 
"R-THE FAULT.MODE OF PDCA1SW11NODE IS FAILED" 
"R-THE FAULT.MODE OF PDCA1SW12NODE IS FAILED" 
"R-THE FAULT.MODE OF PDCA2MDBNODE IS FAILED" 
“"R-THE FAULT.MODE OF PDCA2SW21NODE IS FAILED" 
"R-THE FAULT.MODE OF PDCA2SW22NODE IS FAILED" 
"R-THE FAULT.MODE OF SESWCNTLSW11NODE IS FAILED" 
"R-THE FAULT.MODE OF SW11PDCAINODE IS FAILED" 
"R-THE FAULT.MODE OF SW11SESWCNTLNODE IS FAILED" 
"R-THE FAULT.MODE OF SW12PDCAINODE IS FAILED" 
"R-THE FAULT.MODE OF SW21PDCA2NODE IS FAILED" 
"R-THE FAULT.MODE OF SW22PDCA2NODE IS FAILED")) 


(defvar *okay_array* (make-array (51) :initial-contents 
“("G-THE FAULT.MODE OF EPSCNTL IS OKAY" 
"“G-THE FAULT.MODE OF PVEQUIP IS OKAY" 

"G-THE FAULT.MODE OF BETAJ IS OKAY" 
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"G-THE FAULT.MODE OF VOLTREG IS OKAY" 

"G-THE FAULT.MODE OF BATTERIES IS OKAY" 

"G-THE FAULT.MODE OF DC_AC_INVERT IS OKAY" 
"G-THE FAULT.MODE OF ALPHAJ IS OKAY" 

"G-THE FAULT.MODE OF MAINDIST IS OKAY" 

"G-THE FAULT.MODE OF PDCA1 IS OKAY" 

"G-THE FAULT.MODE OF PDCA2 IS OKAY" 

"G-THE FAULT.MODE OF SESWCNTL IS OKAY" 

"G-THE FAULT.MODE OF SW1_1 IS OKAY" 

"G-THE FAULT.MODE OF SW1_2 IS OKAY" 

"G-THE FAULT.MODE OF SW2_1 IS OKAY" 

"G-THE FAULT.MODE OF SW2_2 IS OKAY" 

"G-THE FAULT.MODE OF EPSPVNODE IS OKAY" 

"G-THE FAULT.MODE OF EPSBJTNODE IS OKAY" 

"G-THE FAULT.MODE OF EPSINVERTNODE IS OKAY" 
"G-THE FAULT.MODE OF EPSMDBNODE IS OKAY" 
"G-THE FAULT.MODE OF EPSPDCA1NODE IS OKAY" 
"G-THE FAULT.MODE OF PVEQUIPEPS NODE IS OKAY" 
"G-THE FAULT.MODE OF PVEQUIPBJTNODE IS OKAY" 
"G-THE FAULT.MODE OF BJTPVEQUIPNODE IS OKAY" 
"G-THE FAULT.MODE OF BJTEPSNODE IS OKAY" 

"G-THE FAULT.MODE OF BJTVOLTREGNODE IS OKAY" 
"G-THE FAULT.MODE OF VOLTREGBJTNODE IS OKAY" 
"G-THE FAULT.MODE OF VOLTREGBATTNODE IS OKAY" 
"G-THE FAULT.MODE OF VOLTREGINVERTNODE IS OKAY" 
"G-THE FAULT.MODE OF BATTVOLTREGNODE IS OKAY" 
"G-THE FAULT.MODE OF INVERTVOLTREGNODE IS OKAY" 
"G-THE FAULT.MODE OF INVERTEPSNODE IS OKAY" 
"G-THE FAULT.MODE OF INVERTAJTNODE IS OKAY" 
"G-THE FAULT.MODE OF AJTINVERTNODE IS OKAY" 
"G-THE FAULT.MODE OF AJTMDBNODE IS OKAY" 
"G-THE FAULT.MODE OF MDBAJTNODE IS OKAY" 
"G-THE FAULT.MODE OF MDBEPSNODE IS OKAY" 
"G-THE FAULT.MODE OF MDBPDCA1NODE IS OKAY" 
"G-THE FAULT.MODE OF MDBPDCA2NODE IS OKAY" 
"G-THE FAULT.MODE OF PDCAIMDBNODE IS OKAY" 
"G-THE FAULT.MODE OF PDCAIEPSNODE IS OKAY" 
"G-THE FAULT.MODE OF PDCA1SW11NODE IS OKAY" 
"G-THE FAULT.MODE OF PDCA1SW12NODE IS OKAY" 
"G-THE FAULT.MODE OF PDCA2MDBNODE IS OKAY" 
"G-THE FAULT.MODE OF PDCA2SW21NODE IS OKAY" 
"G-THE FAULT.MODE OF PDCA2SW22NODE IS OKAY" 
“G-THE FAULT.MODE OF SESWCNTLSW11NODE IS OKAY" 
"G-THE FAULT.MODE OF SW11PDCA1NODE IS OKAY" 
"G-THE FAULT.MODE OF SW11SESWCNTLNODE IS OKAY" 
“G-THE FAULT.MODE OF SW12PDCA1NODE IS OKAY" 
"G-THE FAULT.MODE OF SW21PDCA2NODE IS OKAY" 
"G-THE FAULT.MODE OF SW22PDCA2NODE IS OKAY")) 
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(defun check_predicted_array (comp) 
(do ((andex 0 (1+ index))) 
(> index 50) 
(if (eq comp (aref *pwrsys_array* index)) 
(progn (setq user::*message_out* (aref *predicted_array* index)) 
(princ *message_out*) 
(setq *data_out* index) 
(print *data_out*) 
) 
) 
) 


(defun check_fault_array (comp) 
(do ((index 0 (1+ index))) 
(> index 50) 
(if (eq comp (aref *pwrsys_array* index)) 
(progn (setq *message_ont* (aref *fault_array* index)) 
(princ *message_out*) 
(setq *data_out* index) 
(print *data_out*) 
) 
) 
) 


(defun output_routine (line) 
(cond ((eq (sixth line) ‘failed) 
(check_fault_array (fourth line)) 


) 
((eq (sixth line) ‘predicted_failure) 
(check_predicted_array (fourth line)) 


) 
(zl:pkg- goto ‘common-lisp-user) 


(user::send_data *message_out*) 
(user::send_data *data_out*) 


) 


(defun process_list (list) 
(cond ((null (cdr list)) 
(Output_routine (car list)) 
(zl:pkg-goto ‘common-lisp-user) 


(user::send_data "END OF SYSTEM CHECK") 
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(user::send_data *finished_processing*) 
(t output_routine (car list)) 


) 
(process_list (cdr list)) 
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MAKEFILE 


CFLAGS = -Zg -Zf -lm -ldbm -g 
COMM = /work/hester/commdir/ 


OBJS1 = newpwrsys.o\ 
compmenu.o\ 
componenthit.o\ 
compstat.o\ 
diagram.o\ 
faulthelp.o\ 
healthhelp.o\ 
help.o\ 
maintspthelp.o\ 
mainhelp.o\ 
mousemenhelp.o\ 
nethelp.o\ 
pwrtlow.o\ 
pwrflowhelp.o 


OBJS2 = $(COMM)io_single.o\ 
$(COMM)mpath.o\ 
$(COMM)semaphore.o\ 
$(COMM)shareseg.o\ 
$(COMM)support.o 


pwrsys: $(OBJS1) $(OBJS2) 
cc -o pwrsys $(OBJS1) $(OBJS2) $(CFLAGS) -lIbsd 


$(OBJS1): pwrsys.h 


$(COMM)mpath.o: $(COMM)shared.h 
cc -c -o $(COMM)mpath.o $(COMM)mpath.c $(CFLAGS) 


$(COMM)support.o: $(COMM)shared.h 
cc -c -o $(COMM)support.o $(COMM)support.c $(CFLAGS) 


$(COMM)semaphore.o: 
cc -c -o $(COMM)semaphore.o $(COMM)semaphore.c $(CFLAGS) 


$(COMM)io_single.o: $(COMM)shared.h 
cc -c -o $(COMM)io_single.o $(COMM)io_single.c $(CFLAGS) 


$(COMM)shareseg.o: 
cc -c -o $(COMM)shareseg.o $(COMM)shareseg.c $(CFLAGS) 
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PWRSYS.H 


#include <strings.h> 
#include "stdio.h" 
#include "gl.h" 

#include "device.h" 
#1nclude "math.h" 
#include "/work/hester/commadir/shared.h" 
#define INITX VALUE 0 
#define INITY VALUE 0 
#define menuymin 43.8 
#define menuymax 131.5 
#define menulxmin 43.0 
#define menu2xmin 150.8 
#define menu3xmin 322.5 
#define menu4xmin 494.2 
#define menuS5xmin 665.9 
#define menu6xmin 837.6 


#define EPSCNTL 0 

#define PVEQUIP 1 

#define BETAJ D 

#define VOLTREG 3 

#define BATTERIES 4 
#define DC_AC_INVERT 5 
#define ALPHAJ 6 

#define MAINDIST 7 

#define PDCA]1 8 

#define PDCA2 9 

#define SESWCNTL 10 
#define SW1_1 11 

#define SW1_2 Vz 

#define SW2_ 1 13 

#define SW2_ 2 14 

#define EPSPVNODE 15 
#define EPSBJTNODE 16 
#define EPSINVERTNODE 17 
#define EPSMDBNODE 18 
#define EPSPDCAINODE 19 
#define PYVEQUIPEPSNODE 20 
#define PUEQUIPBJTNODE 21 
#define BITPVEQUIPNODE 22 
#define BJTEPSNODE 23 
#define BJTVOLTREGNODE 24 
#define VOLTREGBJTNODE 25 


1D 


#define VOLTREGBATTNODE 26 
#define VOLTREGINVERTNODE 27 
#define BATTVOLTREGNODE 28 
#define INVERTVOLTREGNODE 29 
#define INVERTEPSNODE 30 
#define INVERTAJTNODE 31 
#define AJTINVERTNODE 32 
#define AJTMDBNODE 33 
#define MDBAJTNODE 34 
#define MDBEPSNODE 35 
#define MDBPDCAINODE 36 
#define MDBPDCA2NODE 37 
#define PDCAIMDBNODE 38 
#define PDCAIEPSNODE 39 
#define PDCAISWIINODE 40 
#define PDCAISWI2NODE 41 
#define PDPCAZ2MDBNODE 42 
#define PDCA2SW21INODE 43 
#define PDCA2SW22NODE 44 
#define SESWCNTLSWIINODE 45 
#define SWI1IPDCAINODE 46 
#define SW1ISESWCNTLNODE 47 
#define SWI2PDCAINODE 48 
#define SW21PDCA2NODE 49 
#define SW22PDCA2NODE 50 
#define EPSCN1 51 

#define EPSCN2 a 

#define EPSCN3 55 

#define EPSCN4 54 

#define EPSCNS5 55 

#define CNO 56 

#define CNla 57 

#define CN1b 58 


#define CN2 59 
#define CN3 60 
#define CN4 61 
#define CN5 62 


#define CN6 63 

#define CN7a 64 

#define CN7b 65 

#define CN8a 66 

#define CN8b 67 

#define CN8c 68 

#define CN8&d 69 

#define SESWCN 70 
#define XMAXDIAGRAM 7.0 
#define YMAXDIAGRAM 9.5 
#define FLASHBLACKR 61 
#define FLASHBLACKY 78 
#define EXIT 99 

#define PWRWINX1 10 
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#define PWRWINX2 1000 

#define PWRWINY1 10 

#define PWRWINY2 730 

#define CHECKSYSTEM 51 

#define FINISHED_PROCESSING 555 


typedef char str80[80]; 
struct Sys_component 
Object objname; 
Tag tagname; 
int voltlevel; 
int freqlevel; 


char volttype[4]; 
str80 compstatus; 


}; 

struct sys_component power[100]; 
Machine remotemachine; 

char commbuffer[LARGESTREAD]; 
float commfloat; 


int Commint: 


a 


SHARED.H 
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TITLE : Inter-Computer Communication Package 
MODULE : shared.h 

VERSION: 4.0 

DATE: 15 December 1987 

AUTHOR : Theodore H. Barrow 
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VERSION: 1.0 
DATE : 6 February 1987 
AUTHOR : Michael J. Zyda 


DESC. : Contains all defines and special constants for shared 
memory socket system. 


VERSION: 2.0 
DATE :27 May 1987 
AUTHOR : Theodore H. Barrow 


DESC. : Added a typedef of structure for use by various routines. 
Added message types for high level read/write protocol. 


VERSION: 3.0 
DATE : 21 October 1987 
AUTHOR : Theodore H. Barrow 


DESC. : Changed dependencies of buffer calculation constants so that 
only one need change. Added additional message types. 


VERSION: 4.0 
DATE : 15 December 1987 
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AUTHOR : Theodore H. Barrow 


% & & & 


DESC. : Added field to buffer set so that each link would have its 


id own area to handle partial receipt of messages. 
2 2h fe af ake ake 2k afc akc af fe ake ae ak ok ake afc af ake af ake ake 2k ake ok ake akc akc ake ake ake 2k ake fe ake akc ake 2k ake 2k ake ake ake fe ake afc ake fe af akc afc ic afc af ake ake ae ak ak ake ake ake akc 2k ak 2k 2k ae 2 akc ak 2k 


fe afc afc 2 ake ate ake ake ake ake 2k 2k ak 2k ake af fe ake ok akc 2k ake akc ake akc ake akc ake ake ae akc ake ake ake ake ake aie akc ake af aie ake aie ate ade afc akc 2k ake aie ak aie ai ake 2k ake ake akc fe aie ake aie ake ake ake ai akc 2 2c ak ak 2k 
/* 
the following 3 defines are the changeable parameters 
LARGESTREAD MUST be divisible by 4 
#define SENDLOCATION "/work/hester/commdir/send" /* the name of the program 


to run for the sender */ 


#define RECEIVELOCATION "/work/hester/commdir/receive" /* the name of program 
to run for the receiver */ 


#define LARGESTREAD 252  /* the largest read (i.e. buffer size) */ 


/* The following defines are constants or are derived from LARGESTREAD */ 

#define SENDEROFFSET (LARGESTREAD + 4) /* the sender data starts here */ 
#define WSENDEROFFSET (SENDEROFFSET / 4) /* long word offset for sender data */ 
#define RECEITVEROFFSET 0 _//* the receiver data starts at byte 0 */ 

#define WRECEIVEROFFSET 0 _ /* the receiver data starts at long word 0 */ 


#define PROTOCOLHOLDOFFSET (SENDEROFFSET * 2) /* holding area starts after 
sender area */ 
#define MAXSHAREDSIZE (PROTOCOLHOLDOFFSET + 12) /* the number of bytes in 
the 
shared segment */ 


#define CHARACTER_TYPE 'B' /* code for characters */ 

#define INTEGER_TYPE 'T’ /* code for integers */ 

#define FLOAT_TYPE ‘R' /* code for floats */ 

#define CHARACTER_ARRAY_TYPE 'C' /* code for character arrays */ 
#define INTEGER_ARRAY_TYPE ‘J’ /* code for integer arrays */ 
#define FLOAT_ARRAY_TYPE _ 'S' /* code for float arrays */ 


#define CHARACTER_SIZE 1 /* character size in bytes */ 
#define INTEGER_SIZE  sizeof(1) /* integer size in bytes */ 
#define FLOAT_SIZE _ sizeof(1.0) /* float size in bytes */ 


/* the following is the structure type definition needed for each machine 
you want to communicate to... 


He 


) 
typedef struct { 


char *segment; /* ptr to shared memory segment */ 

intshmid; /* system generated shared mem. id */ 

int sendsem; /* semaphore used to wakeup the sender 
process. 


*/ 


int receivesem; /* semaphore used to wakeup the 
receiver process... 


} Machine ; 
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HELP.C 


#include "pwrsys.h" 


ec ee EEE EEA RE EE HO I eR A A Ee 
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HELP_MENU 


The main control module for help menus 


aie 2h ake ake ake ake ake afc ak ake ake ake ie ake ake ake ake ake ake afc ake ake ake ake ake ake ake ake ake ake ake ake abe 2c aie ake ake ake ake ake ake ake ake ake ake afc aie afc ake ake ake ake ake ake ake ake ake ake ake ate ak ae ok ake ake ake ake ake ok ak ok 
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help_menu(menunum) 
int menunum; 


{ 


short data; 
Boolean CANCEL; 


CANCEL = FALSE; 


mousemenu(); 
while (!}CANCEL) 
if (qtest()) 
. switch(qread(&data)) 
/* Cancel to depart loop */ 
case REDRAW: __ reshapeviewport(); 
break; 


case LEFTMOUSE: CANCEL = TRUE; 
break; 
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case RIGHTMOUSE: mousemenu(); 
break; 


case MIDDLEMOUSE: processhelp(menunum); 
break; 


default: break; 
} 


} 
} /* end while */ 
system("clear\n"); 
} /* end help_menu */ 


[Fe A A He I He ee ee ee i ee He I I ee eee 
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PROCESSHELP 


Allows the creation and display of specific help for current 
menu 
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processhelp(menunum) 
int mMenunum; 


{ 
color(BLUE); 
clear(); 


color(WHITE); 


switch(menunum) 


{ 


case 1: mainhelpQ; 
break; 


case 2: nethelp(); 
break; 


case 3: healthhelpQ); 
break; 


case 4: maintspthelpQ); 
break; 


case 5: faulthelpQ; 
break; 
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case 6: pwrflowhelpQ); 
break; 






/* end processhelp */ 
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MAINHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include “gl.h" 
#include "pwrsys.h" 
#define NUMHELP!1 3 


cent 


Static str80 helpmainf NUMHELP1] = 
"Hi, I'm main help.", 


"Use RIGHT MOUSE to return to mouse help menu.” 
}; 


? 


int J; 
float incr; 


for(j = 0; j < NUMHELPI; j =j + 1) 
{ 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(helpmain{}}); 
swapbuffers(); 


} /* end mainhelp */ 
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NETHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include "gl.h" 
#include "pwrsys.h" 
#define NUMHELP2 3 


a 


Static str80 helpneti NUMHELP?] = 
eri im net nelp. , 
"Use RIGHT MOUSE to return to mouse help menu." 
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int J; 
float incr; 


for(j = 0; } < NUMHELP2; j =; + 1) 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(helpnet[j]); 

swapbuffers(); 

} /* end nethelp */ 
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HEALTHHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include “gl.h” 
#include “pwrsys.h" 
#define NUMHELP3 3 


healthhelpQ 
{ 


Static str80 helphealth[NUMHELP3] = 
"Hi, I'm health help.”, 


"Use RIGHT MOUSE to return to mouse help menu." 
js 


int J; 
float incr; 


forg = 0; ) < NUMBELP3; | =)4) 
{ 
incr = 6.0 - (0.2 * (float)}); 
cmov2(2.0, incr); 
charstr(helphealth[}]); 
swapbuffers(); 


} /* end healthhelp */ 
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MAINTSPTHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include "gi.h" 
#include “pwrsys.h" 
#define NUMHELP4 3 


a Pnctpo 


static str80 helpmaintsptt NUMHELP4] = 
"Hi, I'm maintspt help.", 


"Use RIGHT MOUSE to return to mouse help menu." 
}; 


int J; 
float incr; 


for(j = 0; } < NUMHELP4; j =j + 1) 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(helpmaintspt{j]); 

swapbuffers(); 

} /* end maintspthelp */ 
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FAULTHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include "gl.h" 
#include "pwrsys.h" 
#define NUMHELP5 3 


ome () 


static str80 helpfault}t NUMHELPS] = 
"Hi, I'm fault help.”, 


"Use RIGHT MOUSE to return to mouse help menu." 
iE 


int J; 
float incr; 


for(j = 0; |] < NUMHELPS; j =} + 1) 
{ 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(helpfault[j]); 
swapbuffersQ); 


} /* end faulthelp */ 
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PWRFLOWHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include "gl.h" 
#include "pwrsys.h" 
#define NUMHELP6 3 


PO 


static str80 helppwrflow[NUMHELP§] = 

"Hi, I'm pwrflow help.”, 

"Use RIGHT MOUSE to return to mouse help menu.” 
ie 


$ 


int J; 
float incr; 


for) = 0; } < NUMHELP6; j =j + 1) 
{ 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(helppwrflow[}]); 
swapbuffers(); 


} /* end pwrflowhelp */ 
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MOUSEMENHELP.C 


#include <strings.h> 
#include "stdio.h" 
#include "gl.h" 

#include "pwrsys.h" 
#define NUMARRAY?2 23 


mousemenu() 


static st80 mousemen[NUMARRAY 2] = 


" / ae 
: ee ee 
‘ Ly. 
ie 
: ae 
i a 
: lene 7 
al ". 
“cece Se i 
ae | | | | ee 
"| | LEFTMOUSE | IMIDDLEMOUSE | | RIGHTMOUSE | 1", 
Sal | | | | pe 
"| | TERMINATE | i “GORBACK | | SELECT ie 
AGW in =| | TOMOUSE | | MENU | I" 
1 | | MENU WHEN | | OPTION | (", 
“| XCANCEE)) | | INHELP | | pai 
ial | | MENU | | iL 


"Use MIDDLE MOUSE to go to help for this menu panel.", 
"Use LEFT MOUSE to cancel back to previous menu." 
}; 


int J; 
float incr; 
color(BLUE); 


clear(); 
color(WHITE); 
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for(j = 0; } < NUMARRAY?2; j =j + 1) 

{ 
incr = 6.0 - (0.2 * (float)j); 
cmov2(2.0, incr); 
charstr(mousemen|[}j]); 

} 

swapbuffers(); 


} /* end mousemenu */ 


on 





NEWPWRSYS.C 


2k ae he ake ake ake ake ake ake ake ake ake ake ake ake ake ake akc ake ake ade akc ate ake akc ake ake ake ate ake ake ate ate ake ake ake ake ake ake ake ae ake ake ake ake ate ake ake ake ake ake ake ak ake ake ade akc ake ake ake ake ake ake ake ake ae akc akc ok ak 2k 
ae he he fe 2h 2 ae ie he ee ae Fe He 2 2 he he he 2 ae he he he 2 he he ee ie hee Ne Me Re le eR ee Re ee AE Ae AG I AEE 


#include "pwrsys.h" 


[PRR AE Ae He I ee He ee A 
He ate ae ke ae ak ake ake ake ake ake ake ake ate ake ake ake ake ake ate ake ate ake ate ade ate ate afc ae ate aie ate ake ake ate ade ate ake ade aie ake ade ake ake ake ake ake ate ae ake ale ade ak ake ate ade ake ake ok ake ade ake ake ake ake ake akc ake ake kc 


MAIN() 


This is the primary control module for the entire menu interface. It 
is mouse-oriented and utilizes the IRIS window manager, MEX. 


LEFT MOUSE (MOUSE3) -> Pop up a Menu (CANCEL) 
RIGHT MOUSE (MOUSE]1) -> Select a Menu 


2K ake aie ake ake 24 ake ake ake ake akc ake ake ake ake ake fe ate ie afc ake ake aie aie ae ake ak ake ake ake ae ate ake ake ake ake ake ake ake ak ake ake ake ake ate aie ate aie ake ake aie ake aie ak ake ake ate ake ake akc ake aie ake ae ake ake ok ake ake ok 
Be ae ae ae ae ae he he 2k ae a ee es ae ie 2 2 8 2 ie ie ie he 2 ae ee Ee Ae ROR eA IE a A oR Se 


main() 


Fee ee He He ee He He ae He He ie ae He ee ee EH HH Ne He He He A ae He A A 
AK Ake ake ake ake ake 2c ake ake fe ake ake ake ake ake ake ake ae ake ake fe ake ate ake ake ake ake ate ade ate ie ake ake ake ake ake aie ate ak ake ake aie ake ate ate ate ake ake ake ate ake ake ake ake ake ake ake ake aie ade ake ate ake ae ake ake ake ake akc 2k 


/* menu item names */ 


short data; 

Static int pupval = 1; 

int levell, level2, level3, level4a, level4b, level4c, leveld; 
int Compnum; 

/* initialize the IRIS system */ 

initialize(); 

/* orthographic projection 2D for world coordinate system */ 
ortho2(0.0, 9.5, 0.0, 7.0); 


/* set mouse limits */ 


UZ 


setvaluator(MOUSEX, INITX VALUE, 0, XMAXSCREEN); 
setvaluator((bMOUSEY, INITY VALUE, 0, YMAXSCREEN), 


/* define two blinking colors - 
one to flash between black and yellow for predicted faults 
one to flash between black and red for actual faults */ 


mapcolor(FLASHBLACKY, 0, 0, 0); 
mapcolor(FLASHBLACKR, 0, 0, 0); 


blink(32, FLASHBLACKR, 255, 0, 0); 
blink(32, FLASHBLACKY, 255, 255, 0); 


/* build the system diagram */ 
make_diagram(); 
/* build pop-up menus */ 


level4c = defpup("POWER FLOW “%t | Help %x13 | Charge Battery %x14 
Discharge Battery %x15 | Use Voltaics %x16K 
Use Voltaics & Batteries %x17"); 


level4b = defpup("FAULT MANAGEMENT %t | Help %x11 Kh 
Fault Detection %x12"); 


level4a = defpup("MAINTENANCE SUPPORT %t! Help %x9 |\ 
Status Prediction %x10"); 


level3 = defpup("HEALTH MANAGEMENT “Zt | Help %x5 K 
Maintenance Support %x6 %m | Fault Management %x7 %m N 
Power Flow %x8 %m", level4a, level4b, level4c); 


level2 = defpup("POWER NETWORK CONTROL &t | Help %x3 N 
Health Management %x4 %m_", level3); 


levell = defpup("PMAD [%t | Help %x1 | Power Network Control %x2 %m N 
Status Prediction %x10 | Fault Detection %x12 KN 
Power Flow %x8 %m | EXIT %x99", level2, level4c); 


leveld = defpup("COMPONENT STATUS %t | Help %x5 K 
Fault Detection %x12 | Status Prediction %x10"); 


color(WHITE); 
clear(); 

call_diagram(); 
swapbuffers(); 


ee 


machinepath(7, "nps-sym1", 1026, 1027, "server", 
&remotemachine); 


while(pupval != EXIT) 
if (qtest(Q)) 
switch(qread(&data)) 


case REDRAW: _ reshapeviewport(); 
break; 


case RIGHTMOUSE: if (data == 1) 
{ 
compnum = componenthit(); 
if(compnum >= EPSCNTL 
&& compnum <= SW22PDCA2NODE) 
pupval = dopup(leveld); 
else 
pupval = dopup(level1); 
processmenuhit(pupval, compnum); 


break; 
default: break; 


} 
color(WHITE); 
clear(); 
call_diagram(); 
swapbuffers(); 


} /* end while */ 

commint = 999; 
write_integer(&remotemachine, &commint); 
deletemachinepath(&remotemachine); 


blink(O, FLASHBLACKR, 255, 0, 0); 
blink(O, FLASHBLACKY, 255, 255, 0); 


ginit(); 

textinit(); 

gexit(); 
system("gclear\n"); 


} /* end main */ 
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PROCESSMENUHIT(PUPVAL) 


ie ke 2h ake ake ake akc ake ake ake ake ake ake ake 2k ake ake kc ak aie ake ake ake akc ake ake ake ake aie ake ake ake ake aie ake ake aie oc ak aie ake ake aie ake ake ae ake ake oe ake aie oie aie ake ae aie ake ake ade ake ake ake ake ake ake akc ake ake ake ok ok 
aa aa RE CA Ee NON Me NONE NG MC MH MCG He HE Re HE We Me ee a aE ae Ae Re Oe ee ie ae le he ee ae ae ie Ae ke eae / 


processmenuhit(pupval, num) 
int pupval; 


int menunum; 
char help_file[{80]; /* help file for each menu level */ 


switch(pupval) 
{ 


case -1: 
wase 2: 
case 4: 
case 6: 
case 7: 
case 8: 
case 99: break; 


case 1: menunum = 1; 
help_menu(menunum); 
break; 


case 3: menunum =?2; 
help_menu(menunum); 
break; 


case 5: menunum = 3; 
help_menu(menunum); 
break; 


case 9: menunum = 4: 
help_menu(menunum); 
break; 


case 10: statusprediction(num); 
break; 


case 11: menunum = 5; 
help_menu(menunum); 
break; 


case 12: faultisolation(num); 
break; 


case 13: menunum = 6; 
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help_menu(menunum); 
break; 


case 14: charge_batt(); 
break; 


case 15: discharge_batt(); 
break; 


case 16: use_pv_only(); 
break; 


case 17: use_pv_batt(); 
break; 


default: break; 


} /* end processmenuhit */ 


PR RC OO ooo jiociojiocioiioiioiioicicioiai doi gai ciiaiioiiaiiak ieiakaiak kak kak a ak kak kak ak kak kk 
FOO OR OR IO OR I RoR oR OR I ROR oR a a kk a ak a ak ak ak ak ak ak ak ak ake ak ak ok ak akc a ak ak akc ak ake ak 2k 2k 2k ke 2k ke 2k ake 2k 


INITIALIZE() 


This subroutine executes several routines that set up the 
graphics environment for this program. 


2 2 2 ae 2k ofc oe oie ke oie oie oie ac oie ie oe oie oie ok oie oie oe ie oie oie oe ok oi ie oe ok oie fe oie oie oie ok oe oie oie afc ofc oie oie oi oie fe oie oie ate fe aie oie oie ok of ae ake af oie ae akc ake ate ok 2k oe oie ok ofc kc 
Be He ae he ae ke He he he he 2 ie ie Ae Re ie 2 IE ie Ae 2h ke 2 ke ake ie ke 2 ee ke he 2h 2 2 ie Ie aie fe ea a Ae ae fe ie Ae A 


initializeQ 
{ 
keepaspectXMAXSCREEN + 1, YMAXSCREEN + 1); 
prefposition(PWRWINX1, PWRWINX2, PWRWINY1, PWRWINY2); 
winopen(""power'); 
wintitle("SPACE STATION POWER MANAGEMENT & DISTRIBUTION SYSTEM 
(PMAD)"); 
winattach(); 
doublebufferQ); 
gconfig(); 
qdevice(REDRAW); 
qdevice(RIGHTMOUSE); 
qdevice(MIDDLEMOUSE); 
qdevice(LEFTMOUSE); 
} /* end initialize */ 
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COMPONENTHIT.C 


#include “pwrsys.h" 


eee ee Rr ee A REE TEE ERE REE EERE REECE EERE EKER EEE EEE EH 
PSP PSS SS SSL SS SLES SESS SSS STS SS ST FESS SL ET ET ESS SSS TTS SS SSS FT SST SS SS ST TS SF FS 


COMPONENTHIT 


The following functions determines if the current mouse location 
corresponds to a component item hit. 


The assumption is made that the mouse moves in a world space 
that 1s the same as the screen space. 


2K 2k fe ok 2k ok oe ok ok 2k ok ok ok 2k ke ok ok ok ok ok 2k 2k ok 2 ok ok ok ok ok 2 ok 2 ok ok ok ok ok ok ok kk ok ok ok ok Kk kK KK kk ok Kk kK ok kK kk Kk kK 
Batata nets A AR Ae Re A A ee Ae ie ee Ae Ae OE ee A Ae he eA Me Ae ae ee ee ee ee ok Ae ee / 


int componenthit() 
inti; /* temp loop counter */ 
int pos; /* location of hit menu item */ 
float x,y; /* location of valuator */ 


int inside_rect(); /* function that returns true if x,y is inside 
the defined box */ 


int inside_circ(); /* function that returns true if x,y is inside 
the defined circle */ 


static float comppos[49][5] = 
{ 0.4, 5.4, 8.0, 5.8, EPSCNTL, 
8, PVEQUIP, 
, VOLTREG, 
, BATTERIES, 
DC_AC_ INVERT, 
, MAINDIST, 
, PDCAI, 
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0.8, 5.3; 1-09 S4,EPSEN NODE; 

1.9, 5.3, 2.1, 5.4, EPSBJTNODE, 

3.6, 5.3, 3.8, 5.4, EPSINVERIN@EE, 
6,5,.5.3;,0.1,.9:.4, EPSMDBNODE: 

7.6, 5.3, 7.8, 5.4, EPSPDCAINODE, 

0.8, 4.8, 1.0, 4.9, PVMEQUIPEPS NODE, 

1.4, 4.5, 1.5, 4.7, PMEQUIPBJTNODE, 

1.7, 4.5, 1.8, 4. 7h BJTPVEQUIPNODE, 

V9 4.82.1 9, BJTEPSNODE, 

2.2, 4.5, 2.3, 4.7, BITWOLTREGNODE, 

2.4, 4.5, 2.5, 4.7, VOLTREGBJTNODE, 

2.6, 4.3, 2.8, 4.4, VOLTREGBATTNODE, 
2.9, 4.5, 3.0, 4.7, VOLTREGINVERTNODE, 
2.6, 3.8, 2.8, 3.9, BATTVOLTREGNODE, 
3.1, 4.5, 3.2, 4.7, INVERTVOLTREGNODE 
3.6, 4.8, 3.8, 4. 9, INVERTEPSNODE 

4.2, 4.5, 4.3, 4.7, INVERTAJTNODE, 

5.3, 3.8, 5.4, 4.0, AJTINVERTNODE, 

5.8, 3.8, 5.9, 4.0, AJTMDBNODE, 

6.3, 3.8, 6.4, 4.0, MDBAJTNODE, 

6.5, 5:0, 6:7,55.1, MIDBEPSNODE, 

6.8, 4.4, 6.9, 4.6, MDBPDCAINODE, 

6.8, 3.2, 6.9, 3.4, MDBPDCA2NODE, 

7.3, 4.4, 7.4, 4.6, PDCAIMDBNODE, 

7.6, 4.8, 7.8, 4.9, PDCA]1EPSNODE, 

8.0, 4.6, 8.1, 4.8, PDPCAISW11NODE, 

8.0, 4.2, 8.1, 4.4, PDCAISW12NODE, 

7.3, 3.2, 7.4, 3.4, PDPCA2MDBNODE 

8.0, 3.4, 8.1, 3.6, PDCA2SW21 NODE, 
$.0;-3-0: S21; 3:2, POC AZS W2ZNOBE: 

8.7, 0-3; 019) 5-4, OES WGN ony UN es 
8.5, 4.6, 8.6, 4.8, SW11PDCAINODE, 

3.1/5 5.0,8.9, o.1) ov LISESWeNDENODE: 
8.5, 4.2, 8.6, 4.4, SW12PDCA1NODE, 

8.5, 3.4, 8.6, 3.6, SW21PDCA2NODE 

8.5, 3.0, 8.6, 3.2, SW22PDCA2NODE 


i 
float Sx, Sy; 


Sx = getvaluator(MOUSEX); 
Sy = getvaluator((MOUSEY); 


/* Compute world coordinates of mouse...*/ 


x= (((9.5 - 0.0)/(PWRWINX2 - PWRWINX1)) * (Sx - PWRWINX1)) + 0.0; 
y= (((7.0 - 0.0)/(PWRWINY2 - PWRWINY1)) * Gy - PWRWINY1)) + 0.0; 
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/* we assume that the mouse coordinates returned match world coords*/ 
/* say that we have not yet found the hit */ 

pos =-l; 

for(i = 0; 1 <= 48; 1 =1+1) 


if(inside_rect(x,y,comppos[i][0],comppos[1][1], 
comppos[i][2],comppos[i][3])) 


/* this is the guy we have Selected... 
set a flag indicating that this selection 
is the current component item */ 


pos = comppos[i][4]; 
break; 


if(inside_circ(x,y,2.0,4.6,0.2)) 
pos = BETAS; 
else 
if(inside_circ(x,y,5.6,3.9,0.2)) 
pos = ALPHAJ; 


return(pos); 
} /* end componenthit */ 


eee eee EEE ESSE EAE ELE EE ESE REESE EERE REE RRR ERE KK 
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INSIDE_RECT 


this function determines if (x,y) is inside the box defined by 
the coordinates (xmin,ymin)-(xmax,ymax) 
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int inside_rect(x,y,xmin,ymin,xmax, ymax) 
float x,y; /* location of the cursor */ 
float xmin,ymin,xmax,ymax; /* bounding box to check if cursor 
is inside */ 
if(((x > xmin) && (x < xmax)) && ((y > ymin) && (y < ymax))) 


retumn(TRUE); 
else 


2 


retumn(FALSE); 


[PRE ae ae ae ee i EE EE EEE EEE EEE ee 
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INSIDECIRC 


this function determines if (x,y) is inside the circle defined 
by the center coordinates (xcent, ycent) and the radius 
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int inside_circ(x,y,xcent,ycent,radius) 
float x,y; /* location of the cursor */ 
float xcent,ycent,radius; /* bounding box to check if cursor 
is inside */ 
float D; 
D = sqrt(((x - xcent) * (x - xcent)) + ((y - ycent) * (y - ycent))); 
if(D < radius) 
return(TRUE); 


else 
return(FALSE); 


100 


COMPMENU.C 


cn a OEE EER EERE ERE EERE EEE RE RRR KEK Re a ee Ee 
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COMPMENU 


Displays the menu that provides the choice of items that are 


predicted to fail or that have actually failed 


2k ak ake ae akc ake afc afc ake afc ake ake ake ate ake ake ate ake ake ake akc ae ake ake ak ak ake ak ak ake ak ake ake ake ake ake ake ake ake ake ake ake ake ak ake ake ake ake akc ae ake ake ake ak ake ake ak ak ake ak ak ak ak ak ok ak ok ok ok 2k 2k 
Scenes ats he Me he 4 hee he Ree Ac Ac A le Ac he Ae Ae A ee 2 a ee Re a Re ee A ee 2 a a ae ie ee ie eee ee ie ee He He / 
#include "pwrsys.h" 

#define NUMARRAY 1 20 


compmenu(type) 
int type; 


Static sr80 compmenu[ NUMARRAY 1] = 


{ 


COMPONENTS MENU ‘ 


EPS CONTROL BOARD - 0 SWITCH 2-1 — - 18", 

EPS CONNECTION 1 - 1 SWITCH 2-2 — - 19", 

EPS CONNECTION 2 - 2 CONNECTION OQ - 20", 
EPS CONNECTION 3 - 3 CONNECTION la - 21", 
EPS CONNECTION 4 - 4 CONNECTION 1b - 22", 
EPS CONNECTION 5 - 5 CONNECTION 2 - 23", 
PHOTOVOLTAIC EQUIP - 6 CONNECTION 3 - 24", 
BETA JOINT - 7 CONNECTION 4. - 25’, 
VOLTAGE REGULATOR - 8 CONNECTION 5. - 26", 
BATTERIES - 9 CONNECTION 6 - 27", 
DC-AC-INVERTER  - 10 CONNECTION 7a - 28", 
ALPHA JOINT - 11 CONNECTION 7b. - 29", 
MAIN DISTRIB BOARD - 12 CONNECTION 8a _ - 20", 
PWRDISTCNTL ASSEM1 - 13 CONNECTION 8b - 31", 
PWRDISTCNTL ASSEM2 - 14 CONNECTION 8c - 32", 
SYS ELEMSWCNTL -15 CONNECTION 8d - 33", 
SWITCH 1-1 -16 SYSELEMCONN - 34", 
SWITCH 1-2 -17" 
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for(j = 0; ; < NUMARRAY1; j =j + 1) 


incr = 6.0 - (0.2 * (float))); 
cmov2(2.0, incr); 
charstr(compmenuf[j]); 


. a QO) 


j= NUMARRAY1 + 2; 

incr = 6.0 - (0.2 * (float)j); 

cmov2(2.5, incr); 

charstr(""Enter the numbers corresponding to the items"); 
j=jtl; 

incr = 6.0 - (0.2 * (float)j); 

cmov2(2.5, incr); 

charstr('that have failed, separated by commas."); 


else 

{ 

j = NUMARRAY 1 + 2; 

incr = 6.0 - (0.2 * (float)j); 

cmov2(2.5, incr); 

charstr("Enter the numbers corresponding to the items that"); 
J=j+) 

incr = 6.0 - (0.2 * (float)j); 

cmov2(2.5, incr); 

charstr("are predicted to fail, separated by commas."); 


} /* end compmenu */ 


DIAGRAM.C 


#include "pwrsys.h" 
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MAKE_ DIAGRAM 


Creates the thirty five different objects in the system 
diagram. 
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ra aden 5 A a RE A i He Me ie ie ee eee he he 2h ee ae ee a ae ee a Ok 


make_diagram() 

{ 
int 1; 
for(i = EPSCNTL; 1 <= SESWCN; 1 =1+ 1) 
{ 


power[i].objname = genobj(); 
makeobj(power[i].objname); 
power[i].tagname = gentag(); 
maketag(power[i].tagname); 


switch(1) 


case EPSCNTL: color(BLACK); 
rect(0.4, 5.4, 8.0, 5.8); 
cmov2(2.3, 5.5); 
charstr("ELECTRICAL POWER SYSTEM "); 
charstr("“MANAGEMENT AND CONTROL"); 
break; 


/* Photovoltaic equipment - the solar power source */ 


case PVEQUIP: — color(BLACK); 
rect(0.4, 4.4, 1.4, 4.8); 
cmov2(0.8, 4.65); 
charstr("PV"): 
cmov2(0.5, 4.5); 
charstr("EQUIPMENT"); 
break; 
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/* Betajoint - secondary rotation joint for solar panels */ 


case BETAS: color(BLACK); 
circ(2.0, 4.6, 0.2); 
cmov2(1.9, 4.55); 
charstr("BJT"); 
break; 


/* Voltage Regulator between PVEQUIP and BATTERIES */ 


case VOLTREG: color(BLACK); 
rect(2.5, 4.4, 2.9, 4.8); 
cmov2(2.55, 4.65); 
charstr("VOLT"); 
cmov2(2.55, 4.5); 
charstr("REG"); 
break; 


case BATTERIES:  color(BLACK); 
Tect(2. Oy 3.5, 3.4538): 
cmov2(2.3, 3.6); 
charstr("BATTERIES"); 
break; 


/* Converter of DC power to AC power */ 


case DC_AC_INVERT: color(BLACK); 
rect(3.2, 4.4, 4.2, 4.8): 
cmov2(3.45, 4.65); 
charstr("DC-AC"); 
cmov2(3.3, 4.5); 
charstr("INVERTERS"); 
break; 


/* Alphajoint - primary rotation joint for solar panels */ 


case ALPHAJ: color(BLACK); 
circ(o.6. 3.9307): 
cmov2(5.5, 3.85); 
charstr('AJT"); 
break; 


/* Main Distnibution Board - distributes power throughout the rest 
of the system sa! 


case MAINDIST: —color(BLACK); 
rect(6.4, 2.6, 6.8, 5.0); 
cmov2(6.55,4.9); 
charstr(""M"); 
cmov2(6.55,4.75); 
charstr("A"); 
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cmov2(6.55,4.6); 
charstr("I"); 
cmov2(6.55,4.45); 
charstr("N"); 
cmov2(6.55,4.25); 
charstr("D"); 
cmov2(6.55,4.10); 
charstr(I"); 
cmov2(6.55,3.95); 
charstr("S"); 
cmov2(6.55,3.80); 
charstr("T"); 
cmov2(6.55,3.65); 
charstr("R"); 
cmov2(6.55,3.50); 
charstr("I"); 
cmov2(6.55,3.35); 
charstr("B"); 
cmov2(6.55,3.20); 
charstr("U"); 
cmov2(6.55,3.05); 
charstr(""T"’); 
cmov2(6.55,2.90); 
charstr("I"); 
cmov2(6.55,2.75); 
charstr("O"); 
cmov2(6.55,2.6); 
charstr("N"); 
break; 


/* Power Distribution and Control Assemblies 1 and 2 */ 


case PDCAIL: color(BLACK); 
rect(7.4, 4.2, 8.0, 4.8); 
cmov2(7.45, 4.5); 
charstr("PDCA 1"); 
break; 


case PDCA?: color(BLACK); 
rect(7.4, 3.0, 8.0, 3.6); 
cmov2(7.45, 3.3); 
charstr("PDCA 2"); 
break; 


/* System Element Switch Control */ 


case SESWCNTL:  color(BLACK); 
rect(8.4, 5.4, 9.2, 5.8): 
cmov2(8.45, 5.65); 
charstr("SYS ELEM"): 
cmov2(8.5, 5.5); 
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charstr("SW CNTL"); 
break; 


/* The four switches coming off the PDCAs */ 


case SW1_1: color(BLACK); 
rect(8.6, 4.6, 9.0, 5.0); 
cmov2(8.65, 4.7); 
charstr("SW11"); 
break; 


case SW1_2: color(BLACK); 
rect(8.6, 4.0, 9.0, 4.4); 
cmov2(8.65, 4.2); 
charstr("SW12"); 
break; 


case SW2_1: color(BLACK); 
rect(8.6, 3.4, 9.0, 3.8); 
cmov2(8.65, 3.5); 
charstr("SW21"); 
break; 


case SW2_2: color(BLACK); 
rect(8.6, 2.8, 9.0, 3.2); 
cmov2(8.65, 3.0); 
charstr("SW22"); 


break; 
case EPSPVNODE: color(BLUE); 
TECti(O8.5.551-0.9 4). 
break; 
case EPSBJTNODE: color(BLUE); 
recth(le9 55,4554): 
break; 


case EPSINVERTNODE: color(BLUE); 
rectf(3.6,5.3,3.8,5.4); 


break; 
case EPSMDBNODE: color(BLUE); 
TECtI(G.D,9.340:7,5:4) 
break; 
case EPSPDCA1NODE: color(BLUE); 
recti(7.6,5.3,7-8.)-4): 
break; 
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case PVEQUIPEPSNODE: color(BLUE); 
rectf(0.8,4.8,1.0,4.9); 
break; 


case PVEQUIPBJTNODE: __ color(BLUE); 
rectf(1.4,4.5,1.5,4.7); 
break; 


case BJTPVEQUIPNODE: color(BLUE); 
rectf(1.7,4.5,1.8,4.7); 


break; 
case BJTEPSNODE: color(BLUE); 
rectf(1.9,4.8,2.1,4.9); 
break; 
case BJTVOLTREGNODE: color(BLUE); 
MECH 2*2.4.5.2.5.4,)): 
break; 


case VOLTREGBJTNODE: color(BLUE); 
Teemie 4145.25.47). 
break; 


case VOLTREGBATTNODE: color(BLUE); 
rectf(2.6,4.3,2.8,4.4); 
break; 


case VOLTREGINVERTNODE: _ color(BLUE); 
rectf(2.9,4.5,3.0,4.7); 
break; 


case BATTVOLTREGNODE: _ color(BLUE); 
mecti(2.6,5.6,2.8.3-9); 
break; 


case INVERTVOLTREGNODE: | color(BLUE); 
FeCuos lea. 4) 
break; 


case INVERTEPSNODE: color(BLUE); 
rectf(3.6,4.8,3.8,4.9); 


break; 
case INVERTAJTNODE: color(BLUE); 
rectf(4.2,4.5,4.3,4.7): 
break; 


case AJTINVERTNODE: color(BLUE); 
rectf(5.3,3.8,5.4,4.0): 
break; 
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case AJT[MDBNODE: color(BLUE); 
rectf(5.8,3.8,5.9,4.0); 


break; 
case MDBAJTNODE: color(BLUE); 
rectf(6.3,3.8,6.4,4.0); 
break; 
case MDBEPSNODE: color(BLUE); 
rectf(6.5,5.0,6.7,5.1); 
break; 


case MDBPDCAINODE: color(BLUE); 
rectf(6.8,4.4,6.9,4.6); 
break; 


case MDBPDCA2NODE: color(BLUE); 
rectf(6.8,3.2,6.9,3.4); 
break; 


case PDCAIMDBNODE: color(BLUE); 
rectf{(7.3,4.4,7.4,4.6); 


break; 
case PDCAIEPSNODE: color(BLUE); 
rectf(7.6,4.8,7.8,4.9); 
break; 


case PDCAISW11NODE: color(BLUE); 
rectf(8.0,4.6,8.1,4.8); 
break; 


case PDCAISW12NODE: color(BLUE); 
rectf(8.0,4.2,8.1,4.4); 
break; 


case PDCA2MDBNODE: color(BLUE); 
FeCti(7 23.5. 247-4.- 3-4) 
break; 


case PDCA2SW21NODE: color(BLUE); 
rectf(8.0,3.4,8.1,3.6); 
break; 


case PDCA2SW22NODE: color(BLUE); 
rectf(8.0,3.0,8.1,3.2); 
break; 


case SESWCNTLSWIINODE: — color(BLUE); 
rectf(8.7,5.3,8.9,5.4); 
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break; 


case SW11PDCAI1NODE: color(BLUE); 
rectf(8.5,4.6,8.6,4.8); 
break; 


case SWI1ISESWCNTLNODE: _ color(BLUE); 
rectf(8.7,5.0,8.9,5.1); 


break; 
case SW12PDCA1NODE: color(BLUE); 
rectf(8.5,4.2,8.6,4.4); 
break; 


case SW21PDCA2NODE: color(BLUE); 
rectf(8.5,3.4,8.6,3.6); 


break; 
case SW22PDCA2NODE: color(BLUE); 
rectf(8.5,3.0,8.6,3.2); 
break; 


/* The five connections from EPSCNTL to other components */ 


case EPSCNI1: color(BLACK); 
rectf(0.85, 4.9, 0.95, 5.3); 
break; 


case EPSCN?: color(BLACK); 
Necwr Jo, 4.952 05, 5.5); 
break; 


case EPSCN3: color(BLACK); 
Rectsso5, 4.9. 3.75, 5.3): 
break; 


case EPSCN4: color(BLACK); 
ReCtt (6:55, 5.1, 6.65, 5.3); 
break; 


case EPSCNS: color(BLACK); 
rectf(7.65, 4.9, 7.75, 5.3); 
break; 


/* CNO through CN8 - Connections between components that will show 
power flow through the system ff 


case CNO: color(BLACK); 


mecth() 5, 4.55, 1.7, 4:65): 
break; 
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case CN la: 


case CN Ib: 


case CN2: 


case CN3: 


case CN4: 


case CNS: 


case CN6: 


case CN7a: 


case CN7b: 


case CN8a: 


case CN&b: 


case CN8c: 


case CN8&d: 


color(BLACK); 
rectf(Z.3..4.55) 2444.63), 
break; 


color(BLACK); 
rectf(2.65, 3.9, 2.75, 4.3); 
break; 


color(BLACK); 
rectf(3.0, 4.55, 3.1, 4.65); 
break; 


color(BLACK); 
rectf(4.3, 4.55, 4.8, 4.65); 
break; 


color(BLACK); 
rectf(4.7, 3.85, 4.8, 4.55); 
break; 


color(BLACK); 
TOCH(4.69550505 50505) 
break; 


color(BLACK); 
rectf(5.9, 3.85, 6.3, 3.95); 
break; 


color(BLACK); 
rectf(6.9, 4.45, 7.3, 4.55); 
break; 


color(BLACK); 
recti(6.9, 3:25, 7 323825). 
break; 


color(BLACK); 
rectf(8.1, 4.65, 8.5, 4.75); 
break; 


color(BLACK); 
recti(S.1 4.25, 8.5, 4:35). 
break; 


color(BLACK); 
recti(8.1, 3.45, 8.5, 3.55): 
break; 


color(BLACK); 


rectf($: 17 3:0525.5,0 45): 
break; 
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/* System Element Switch Connections */ 
case SESWCN: color(BLACK); 
rectf(8.75, 5.1, 8.85, 5.3); 
break; 
default: break; 


} /* end switch */ 


closeobj(); 
} /* end for */ 


} /* end makediagram */ 


ete eit te Oe A Ha te He Ae Ae BA A A cts A AS he A Ae AAG Me Ne AG he Ae 2 Ae ce ae 2 Ae ee i ae He 
2 2k 2k 2c 2 2c 2k 2c 2k oi ofc oi 2c ok 2c ak kc ak kc ak 2c akc 2c ak aie 2k ik 2k 2c 2k 2c ak ae 2k 2c 2k ai 2k ik 2k ie a ake 2k aie fe ak 2k ak akc ak akc 2k ik 2k 2c akc ak ac ak ade 2k akc ak ak 2k ak akc ok 2k ok 


CLEANUP_FLOW and CLEANUP_DIAGRAM 


Procedure that changes all objects in system diagram to 
original color. 


Ae 2k ie 2k 2c ake akc kc 2 2c 2k adc kc 2 2k ak fe ae ake ade ie 2k 2k ak ake 2 ak 2 akc ae ake ik aie fe ak ak akc ak ake kc ake akc ak akc akc ak akc kc ak kc ak ake akc ak akc ak akc ak ake 2c akc ok ok 2k ok ok ok ok 2k ok 2k 
ee te EEE EET EERE EERE ERA EE ER Ae / 


cleanup_flow() 
int 1; 
for (i = CNO; i <= CN8d; i =i+ 1) 
editobj(power[i].objname); 
objreplace(power[i].tagname); 
color(BLACK); 
closeobj(); 
} /* end cleanup_flow */ 
cleanup_diagram() 
{ 
int 1; 
for @ = EPSCNTL; i <= SW2_2;i1=i +1) 
{ 
editobj(power[i].objname); 
objreplace(power[i].tagname); 


color(BLACK), 
closeobj(); 
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for G = EPSPVNODE; 1 <= SW22PDCA2NODE; 1 =1 +1) 
editobj(power[1i]}.objname); 
objreplace(power[i].tagname); 


color(BLUE); 
closeobj(); 


} /* end cleanup_diagram */ 


[Pee Ae Re ee he he He eee he Se hee ie ee ie ee ER ie AE ke ei ie eS ee Fe IS ae IO AS IG A A A i 
2 2K 2K oi 2k ok ok 2k ok 2k 2k akc 2k 2c akc ake 2k oie ok oc ofc oc ak ok 2k kk 2c ak akc oi 2k ok ic ok 2k aie 2k a 2k ic ak aie ok aie a ic ic a aie 2k ic ok 2c ak ok ok ok ok ok oc ok ok ak ok ok ok ok ok 2k ok ok 


CALL_DIAGRAM 


Procedure that calls all the objects in the system diagram. 


2K 2K ok ok 2k oi ok ake ok 2k ake ok ak ake 2k 2k 2k ok ok ic akc 2k 2c ok 2k ai ik a ok aie ake aie 2k 2c ak 2c aie ik ai ik aie 2c ic ake 2k ak 2c aie ik ake 2k ic ak akc ake 2k ic ok ic ake 2k oe ok 2k ok ok ok ok ok ok ok 
ae ae 2 Ae ie he eae 2h ae ae 2 he ae he 2h 2 2 Ae ie ie ee Re 2 2 Ae Ree A a Ne Ae Ae ACR ee he 2 ie Ae A 2 2 th ho he 


call_diagram() 
{ 
int 1; 


for(=021 <=70:1=1 +1) 
callobj(power[i].objname); 


} /* end call_diagram */ 


tt 





PWRFLOW.C 


#include "pwrsys.h" 


po OO oo a GC aa a i aI I I Ig ia i aa i aI aI I IGRI I I kk ak ak ak ak a ak ak a ak ak a ak 
FOO IO I I OR IR a a aR a a aR ka a a aK a a aR a a a ak a a ak ak ak ak a a ak ak ak ak ak ak ak ak ak ak ak ak ak ake akc ak ak ake akc ak 


CHARGE_BATTERY 


Show the flow of power from the photovoltaic equipment to the 
battery. 


3 2K 2k 2k 2k 2k aie afc ake 2c 2 2 ake 2k 2k 2k ke 2k 2k 2c aie ik aie kc ak ak 2c 2c ak aie afc oe 2k 2c 2k ic ac kc 2c ic 2k ik akc ac ae akc ake kc a akc ac ac ic akc ic ac aie akc akc ois ok ok akc ok ois ok oc ok ok ok 2k 
eee te cre A ot A HI A A Ae Ae A AC ee 2 I A He ee ee He ee Ae / 


charge_batt() 
{ 
int flashpoint, 1, num, min, max; 


Boolean CANCEL; 
short data; 


min = CNO; 
imax = CNIb; 

i. 0); 
num = min; 
flashpoint = 0; 
CANCEL = FALSE; 


while(!}CANCEL) 
{ 
i=it+l; 
/* Pause briefly, then move “electricity” flash */ 


sleep(1); 
{ 
1=0; 
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switch(flashpoint) 


case 0: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 


editobj(power[max].objname); 
objreplace(power[max].tagname); 
color(BLACK); 

closeobj(); 

break; 


case |: 
case 2: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 


editobj(power[num - 1].objname); 
objreplace(power|num - 1].tagname); 
color(BLACK); 

closeobj(); 

break; 


default: break; 
} /* end switch */ 


call_diagram(); 
swapbuffers(); 
flashpoint = (flashpoint + 1) % 3; 
if (num == max) 
num = min; 
else 
num = num + 1; 


V7 Enda &/ 


if (qtest(Q)) 
switch(qread(&data)) 


case REDRAW: _ reshapeviewport(); 
break; 
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case LEFTMOUSE: CANCEL = TRUE; 
break; 


default: break; 


} 


) /* end while */ 
color(WHITE); 


clear(); 
cleanup_flow(Q; 
swapbuffersQ); 


} /* end charge_batt */ 


Ieee erat te reat eA es Rh eR i Hi i Re che he te A oe A He ba Ae he He Oe he 2 ok Ok ae Ok 
2K 2k ok 2k 2k ak 2k ak 2k ke 2k 2 ic 2k akc ake ake ae ake 2k ake 2k ake ake ok ake ake ae ake ok akc akc ake ake ake ok ke akc 2c ic aie ake ake 2 2c akc ake ake akc akc ake ake 2c ak ake ake akc ic akc akc ake ake ake ok ak ok ak ake ok ok 2k 


DISCHARGE_BATTERY 


Show the flow of power from the batteries through the rest of 
the system. 


Oi 2 3K 2 akc ak 24 ak ok 2c ake 2k akc 2k ake akc akc oie 2 2c akc 2 akc ake ake ake ake akc akc ok ake ok 2K 2c akc ake akc akc akc ake ak ake 2k 28 ai ak 2c akc 2 ake ok akc ake akc akc ak akc ak akc ok a akc ak akc akc ak ok ok ok ak ak 
rae EA RI ge HR A Ne AC a Ae He Me eG Me Re He Ne Ee Ae Ne Ne 2 ae ee Ae he Ae OR aa ae he He ke 2 2c / 


discharge_batt() 
{ 
int flashpoint, 1, j, num, min, max; 


Boolean CANCEL; 
short data; 


min = CN1b; 
max = CN8d; 
1= Q; 
ie” 9; 
num = min; 
flashpoint = 0; 


CANCEL = FALSE; 
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while(!CANCEL) 
{ 


i=1+1; 

sleep(1); 

| 1=0: 
switch(flashpoint) 


case 0: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 


for G = num + 8; j <= num + 11; j}=j +1) 


editobj(power[j].objname); 
objreplace(power[j].tagname); 
color(BLACK); 

closeobj(); 


} 
break; 


case l: 

case 2: 

case 3: 

case 4: 

case 5: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 

closeobj(); 


editobj(power[num - 1].objname); 
objreplace(power[num - 1].tagname); 
color(BLACK); 

closeobj(); 

break; 


case 6: for j = num; j <=num + 1;j =j +1) 
editobj(power|[j].objname); 
objreplace(power[j].tagname); 


color(RED); 
closeobj(); 
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editobj(power[num - 1].objname); 
objreplace(power[num - 1].tagname); 
color(BLACK); 

closeobj(); 

num = num + 1; 

break; 


case 7: for Gj = num; j <= num + 3; j =j + 1) 
editobj(power[j].objname); 
objreplace(power([j].tagname); 
color(RED); 
closeobj(); 
for (j = num - 2; j <=num- 1;j =j + 1) 
editobj(power[j].objname); 
objreplace(power[}].tagname); 
color(BLACK); 
closeobj(); 


num = num + 3; 
break; 


default: break; 
} /* end switch */ 


call_diagram(); 
swapbuffers(); 


flashpoint = (flashpoint + 1) % 8; 
if (num == max) 
num = min; 
else 
num = num + 1; 
a end if */ 
if (qtest()) 
{ 
switch(qread(&data)) 
{ 


case REDRAW: _ reshapeviewport(); 
break; 
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case LEFTMOUSE: CANCEL = TRUE; 
break; 


default: break; 
} 
} /* end while */ 
color(WHITE); 
clear(); 
cleanup_flowQ; 


swapbuffers(); 
} /* end discharge_batt */ 
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PRR OR OOOO OO OAC GaGa a i a IG aa IG IG I I I i I kak ia rok aa IG Ia kak kak ak 
RO IO I OR Rk a ak kk kok ak ak ako ak ak ak ak ak ak ok ok 


USE_PV_ONLY 


Show the flow of power from the photovoltaic equipment 
throughout the rest of the system. 


Pete eee SLES LS SLL SS SSS SS SSS SSS SST STS SSS SSE TSP SS SP SESS SST SESS ST SS SSS SS SF FS 
eae ie a ER ee A RM He NG 2 ee Ae 2 ee a Me ee ee ee He Ee 2 He ea 


use_pv_only() 
int flashpoint, 1, }, num, min, max; 


Boolean CANCEL; 
short data; 


min = CNOQ; 
max = CN8&d; 
is: 
j= 0; 
num = min; 
flashpoint = 0; 


CANCEL = FALSE; 


while(!CANCEL) 


1=i1+1; 
sleep(1); 
| 1 10) 
switch(flashpoint) 
case Q: editobj(power[num].objname); 
objreplace(power[num].tagname); 


color(RED); 
closeobj(); 
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for (j = num + 10; j <= num + 13; j =j + 1) 


editobj(power[j].objname); 
objreplace(power[j].tagname); 
color(BLACK); 

closeobj(); 


} 
break; 


case 1: 

case 3: 

case 4: 

Case a: 

case 6: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 

Closeobj(); 


editobj(power[num - 1].objname); 
objreplace(power!num - 1].tagname); 
color(BLACK); 

closeobj(); 

if (flashpoint == 1) 
num =num+ 1; 

break; 


case 2: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 
callobj(power[num].objname); 


editobj(power[num - 2].objname); 
objreplace(power[num - 2].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[num - 2].objname); 

break; 


case 7: for Gj =num; j <=num+ 1;j =j +1) 


editobj (power [j].objname); 
objreplace(power[j].tagname); 
color(RED); 
closeobj(); 
callobj(power[j].objname); 
} 
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editobj(power[num - 1].objname); 
objreplace(power[num - 1].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[num - 1].objname); 

num = num + 1; 

break; 


Ih) 


case 8: for G = num; j <= num + 3; j =j + 1) 
editobj(power{j].objname); 
objreplace(power[j].tagname); 
color(RED); 
closeobj(); 
callobj(power[j].objname); 
for G = num - 2; j <=num- 1;j=j+1) 
editobj(power[j].objname); 
objreplace(power|[j].tagname); 
color(BLACK); 


closeobj(); 
callobj(power[j].objname); 
} 


num = num + 3; 
break; 


default: break; 
} /* end switch */ 


call_diagram(); 
swapbuffers(); 
flashpoint = (flashpoint + 1) % 9; 
if (num == max) 
num = min; 
else 
num = num + 1; 


jes endut:/ 


if (qtest(Q)) 
Switch(qread(&data)) 


case REDRAW: __ reshapeviewport(); 
break; 


case LEFTMOUSE: CANCEL = TRUE; 
break; 


default: break; 


} 
} /* end while */ 
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color(WHITE); 
clear(); 
cleanup_flowQ); 
swapbuffers(); 


} /* end use_pv_only */ 


oO aa dai coioiooiooiioiocioioik cial ola icioiatoiaiaialaiaiaiatoickoiaiokiciaiaiiaiotat ai kek ack ack 
SIG RI kok kk i kk kk kak ak ak ak ak ke ake ak ak ake ak kick ak ake ak akc ake ake ake ake ake ake akc ake ake ake ake ake ake ak ake ake ake ake ake ake ake ake ake ae ake ake ake ake ake ake ae ake 


USE_PV_AND_BATTERIES 


Show the flow of power from the photovoltaic equipment and the 
batteries throughout the rest of the system. 


2c ate ate ate ate ade ate ake ate ake ate akc akc ate ake ade ate ade afc ake ake fe ake ade ate ake ate ake ake ate ake ade ate ake ate ae ake ake afc ade ate ake ate ake ake fe ak ake ate ake ate ake ake ake akc ake ake ade ofc ake ofc akc oe ok 2k ake ake ae ake akc ok 
an cement PR AM ARH A RE AE A AR SR A eR ee ee i A eae He he He ee he he He He He 2k He 


use_pv_batt() 
int flashpoint, i, j, num, min, max; 


Boolean CANCEL; 
short data; 


min = CNOQ; 
max = CN&d; 
i= (0: 
j= 0; 
num = min; 
flashpoint = 0; 


CANCEL = FALSE; 
while(!CANCEL) 
{ 


1=1+1; 
sleep(1); 
1=(; 
switch(flashpoint) 
| case 0: editobj(power[num].objname); 
objreplace(power[num].tagname); 


color(RED); 
closeobj(); 
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callobj(power[num].objname); 
for G = num + 10; j <= num + 13; j =j + 1) 


editobj(power[j].objname); 
objreplace(power[}j].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[j].objname); 


break; 


case 3: 
case 4: 
case 5: 
case 6: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 
callobj(power[num].objname); 


editobj(power[num - 1].objname); 
objreplace(power[num - 1].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[num - 1].objname); 

break; 


case 2: editobj(power[num].objname); 
objreplace(power[num].tagname); 
color(RED); 
closeobj(); 
callobj(power[num].objname); 


for J = num - 2; j <= num- 1; j =j + 1) 
{ 
editobj(power[j].objname); 
objreplace(power[}].tagname); 
color(BLACKk); 
closeobj(); 
callobj(power[num - 2].objname); 


break; 
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case 1: 
case 7: for (j = num; j <=num + 1; j =j + 1) 


editobj(power[j].objname); 
objreplace(power[j].tagname); 
color(RED); 

closeobj(); 

callobj(power[j].objname); 


editobj(power[num - 1].objname); 
objreplace(power[num - 1].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[num - 1].objname); 

num = num + 1; 

break; 


case 8: for (j = num; j <=num + 3; j =} + 1) 


editobj(power[j].objname); 
objreplace(power[}j].tagname); 
color(RED); 
closeobj(); 
. callobj(power[j].objname); 


for (j = num - 2; j} <=num- 1; j =j +1) 


editobj(power[j].objname); 
objreplace(power[j].tagname); 
color(BLACK); 

closeobj(); 

callobj(power[j].objname); 


num = num + 3; 
break; 


default: break; 
} /* end switch */ 


call_diagram(); 
swapbuffers(); 
flashpoint = (flashpoint + 1) % 9; 
if (num == max) 
num = min; 
else 
num = num + 1; 


i end if */ 


Wee: 


if (qtest(Q)) 


switch(qread(&data)) 
{ 
case REDRAW: _ reshapeviewport(); 
break; 
case LEFTMOUSE: CANCEL = TRUE; 
break; 


default: break; 


} /* end while */ 
color(WHITE); 
clear(); 
cleanup_flowQ; 
swapbuffers(); 


} /* end use_pv_batt */ 
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COMPSTAT.C 


#include “pwrsys.h" 


ta echt AA Ae A He He tH ee ee hee ke he ee ee ee he ei hee ee he ee hee Ne a 
2K 2 ake ai oie 2k ak ke oe oc ak ake akc ak ake ak ak akc ak ak akc ake akc akc ake aie ake ak i ake ak ai ake aie ate ake ai ake ak ai ake ak ai akc afk ak akc ak ak akc ak ake akc ae ak akc ak ak akc akc ak ak akc ak ak ak ak ok ak ok ok 


FAULT ISOLATION 


Shows actual faults in systems 


2K 2 2k aie aie af ake ie ic ak 2k akc afc ak ate ake a ake ate akc af ak ake ake aie ak ake ake ake ak ak ok ate ake ak 2k ake ake ake ak ak ake aie ak ake ake akc ak ake ake akc ake ak ake ake akc ak akc akc akc ak akc ak ak akc akc ok ok ok 2k ok 
ener ere cect ren eel ces et HE HE HE A CN Ne NERC ee He Re ee CE eee ee He oe He eee eG ee ee RC  / 


faultisolation(num) 
int num; 


{ 
int type; 


type = 0; 


componentstatus(type, num); 


} 


[7 2 ee ee ke ke 2k he 2k 2 he he he 2h 2k 2h he he he ake 2h ee he he ie ake ke ke ake ke ake ke fe ke ke ke ake 2 2k fe ke ake ake ake ake ake 2k fe ke ke ke oe ake 2k a 2 ke ke ke ke a 2 2k 
2 2k 2 2 aie ie kc 2c 2k aie aie ae ake ke ake 2k aie aie ac ae ake 2c ake ake ac ake akc ak ake ake afc ake ake 2k 2k ak akc ae ake ake ak af ak 2k 2k 2k ak ak ake akc ake ae 2c ake 2k ake of akc ake ae ake ake akc ake ae ake ake ake ake ak ok 


STATUS PREDICTION 


Shows predicted faults in systems 


2K 2k 2 2c 2k oie aie aie 2 oie ae 2k 2k oie aie ake 2k a ake 2k akc kc akc ak oc kc 2k 2 ac 2k ok ake ke 2k ok akc 2k ok akc 2c 2k ok 2k 2c ake ak ak 2k ok ake ake 2 a ake akc ok ak ake 2k ok ok ake 2k ok ak ake ake ak ok abe 2k 
Br 0 A Ae AH He Ae AeA He eRe Ae i Hee ee He He He he Ae ee He He He he Se He Me ee ee ee ee i ee a a  / 


Statusprediction(num) 
int num; 

- 
int type; 
type = |; 


componentstatus(type, num); 
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Rok RR Rk oR kk kk kok uk kk kk ak ka ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak 2k ake akc ake ake ak ak akc ake ake ak ake ake ak ake ak ok 


COMPSTAT 


Checks the status of individual components in the diagram. 


2K 2k 2c ake ae 2k kc ae 2c ak 2k ok ok 2k 2c 2k 2k 2k 2k ok 2k 2k 2c ok 2k 2k ak 2k aie 2k ok ok 2k ai ae ae 2k akc oie ak 2k aie ak ak 2k ok ak ake 2k 2k ok 2k 2k ic 2k ok 2c akc ak ak 2k ok ak ok ok ok 2k ok ak ak 2k 
Be ee ie Ne 2 a ae he ie eae he he ee 26 ie ee 26 ee ie ee ee a i ee We Ne ee ee ee ee ee A 


componentstatus(type, num) 
int type, num; 


| int 1, index; 
Boolean CANCEL; 
short data; 
commint = type; 
write_integer(&remotemachine, &commint); 
if (sender_is_free(&remotemachine)) 
| if((num >= 0) && (num <= 50)) 
, commint = num; 
else 


commint = CHECKSYSTEM; 


} 


write_integer(&remotemachine, &commint); 
process_message(); 


CANCEL = FALSE; 


while (}CANCEL) 
{ 


if (qtestQ) 
switch(qread(&data)) 


case REDRAW: _ reshapeviewport(); 
break; 
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case LEFTMOUSE: CANCEL = TRUE; 
break; 


default: break; 


} /* end while */ 


system("clear\n"); 
color(WHITE); 
clear(); 
cleanup_diagram(); 
swapbuffers(); 
} /* end componentstatus */ 
process_message() 


Boolean done; 
char compcolor, mess_pointer[80], commessage[80]; 


while (!done) 


while (!receiver_has_data(&remotemachine)); 


read_characters(&remotemachine, commbuffer, 
number_received(&remotemachine)); 


while (!receiver_has_data(&remotemachine)); 
read_integer(&remotemachine, commint); 
compcolor = commbuffer[{0]; 
if (compcolor == 'G' | compcolor == 'Y’ Il compcolor == 'R’) 
editobj(power[commint].objname); 
objreplace(power[commint].tagname); 


switch(compcolor) 


case 'G': color(GREEN); 
break; 


case 'Y': color(FLASHBLACKY); 
break; 


Pe, 


case 'R': color(FLASHBLACKR); 
break; 


default: break; 
closeobj(); 


strcpy(mess_pointer, strchr(commbuffer, '-')); 
strcpy(commessage, mess_pointer); 


else if (commint = FINISHED_PROCESSING) 


done = FALSE; 
strcpy(commessage, commbuffer); 


color(WHITE); 


clear(); 
swapbuffers(); 
clear(); 
swapbuffers(); 
call_diagram(); 
color(BLACK); 
cmov2(Z.5, 1.0); 
charstr(commessage); 
sleep(1); 


} /* end process_message */ 
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